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FOREWORD 

The  Defense  Communications  Engineering  Center  (DCEC) 
Technical  Notes  (TN's)  are  published  to  inxorm  interested 
members  of  the  defense  community  regarding  technical 
activities  of  the  Center,  completed  and  in  progress.  They 
are  intended  to  stimulate  thinking  and  encourage  information 
exchange;  but  they  do  not  represent  an  approved  position  or 
policy  of  DCEC,  and  should  not  be  used  as  authoritative 
guidance  for  related  planning  and/or  further  action. 

Comments  or  technical  inquiries  concerning  this 
document  are  welcome,  and  should  be  directed  to: 

Director 

Defense  Communications  Engineering  Center 
1860  Wiehle  Avenue 
Reston,  Virginia,  22090 
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I.  INTRODUCTION 


The  AN/TTC-39  Switch  Simulator  was  developed  for  DCA  by 
GTE-SYLVANIA  under  contract  No.  DCA100-76-C-0068 .  The  Software 
was  written  in  FORTRAN-IV  for  use  on  IBM  System-360  or 
System-370.  This  manual  describes  the  operation  of  the 
AN/TTC-39  Switch  Simulation  System  as  implemented  on  the 
DCEC  Hybrid  Simulation  Center  in  Reston,  Virginia.  For  a  more 
detailed  description  of  the  simulator  and  instructions  for  the 
preparation  of  input  data,  the  user  is  referred  to  the  USER'S 
MANUAL  (reference  l). 


II 
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SYSTEM  DESCRIPTION 


The  AN/TTC-39  Switch  Simulator  has  been  designed  as  an 
extension  to  the  GASP-IV  Simulation  System.  Some  GASP  procedures 
have  been  modified.  The  system  is  executed  in  three  distinct 
steps:  the  Traffic  Generation,  the  Model  Execution,  and  the  Post 

Simulation  Analysis.  Although  the  system  can  be  operated  in  the 
batch  mode  (see  Appendix  B)  it  can  more  expediently  be  operated 
remotely  from  a  TSO  terminal.  A  command  procedure  library  has 
been  prepared  that  allows  the  TSO  user  to  initiate  each 
simulation  step  by  entering  a  simple  command.  The  command 
procedure  will  then  generate  the  proper  JCL  cards  and  submit  the 
job  for  background  execution.  Before  any  of  these  steps  can  be 
executed  the  three  FORTRAN  source  modules  must  be  compiled,  and 
the  link-edited  load  modules  placed  into  dataset  SYS9  .  TTC39 . LOAD . 

A  special  TSO  command  has  been  provided  for  this  task.  While  all 
steps  can  be  executed  in  the  background  by  the  SUBMIT  command 
the  Traffic  Generation  step  may  also  be  executed  in  the 
foreground.  A  summary  of  all  TSO  commands  is  given  in  Figure  1 
which  also  shows  the  input  and  intermediate  datasets  of  each  step. 


Foreground  Commands 


Background  Commands 


/ - , 

/  TTC39 . DATA(TRAFIN1 )  I 

I  I 

- j - 


TTC39TRA  I  SYS9.TTC39.LOAD (TRAFGEN )  |  TTC39TRF 


/  I 

|  TTC39 . DATA(GOIN 1 )  | 


I  Intermediate  datasets:  TTC39.0UT1  I 
t  TTC39 .TRAFFICI  TTC39 . CONFT1  I 


I  SYS9 .TTC39 .L0AD(TTC39NEW)  I  TTC39RUN 


I  Intermediate  datasets:  I 
I  TTC39 . TRFOUT 1  TTC 3 9  . XCOMOUT 1  TTC 3 9 . YCOMOUT 1  TTC39 . STAT1  I 
I  TTC39 . RANDOUT 1  TTC39.TRUNK1  I 


I 

. .  I  .  I 

I  TTC39 . DATA( POSTIN) | - |  SYS9 . TTC3 9 . LOAD ( POSTSIM )  I  TTC39PST 


I  LISTING  I 


Ill 


SYSTEM  INITIALIZATION 


To  achieve  good  flexibility  of  the  Simulat 
input/output  data  sets  must  be  established  on  d 
is  automatically  done  whenever  the  SETUP  command 
necessary  datasets  that  do  not  exist  will  then 
cataloged.  The  SETUP  command  has  the  following 


ion  System 
isc  memory, 
is  executed 
be  created 
forma  t : 


the 
This 
.  All 
and 


SETUP  SYS9.TTC39 


This  command  will  also  c 
commands  contained  in  partitioned 
the  regular  TSO  command  list  in 
system  will  then  respond  with  the 

**************************** 

*  THE  TTC39  SIMULATION 

* 


oncatinate  all  special  TTC39 
dataset  ' S YS9 . TTC39 . CLI ST '  with 
dataset  ' SYS  1 . CMDPROC '  .  The 
following  message: 


********************************* 

SYSTEM  HAS  BEEN  INVOKED  * 

* 


*  * 

*  THE  HSF  INSTALLATION  PROVIDES  THE  FOLLOWING  * 

*  COMMANDS  FOR  THE  EXECUTION  OF  THE  SYSTEM  * 

*  * 

*  TTC39CMP  -  TO  COMPILE  A  MEMBER  IN  TTC39 . FORT  * 

*  TTC39TRF  -  TO  GENERATE  THE  TRAFFIC  FILE  (BACKGROUND)  * 

*  TTC39TRA  -  TO  GENERATE  THE  TRAFFIC  FILE  (FOREGROUND)  * 

*  TTC39RUN  -  TO  EXECUTE  THE  MODEL  (BACKGROUND)  * 

*  TTC39PST  -  TO  INVOKE  POST  ANALYSIS  PROCRAM  (BACKGROUND)* 

*  TTC39SIM  -  TO  INVOKE  ALL  SIMULATION  STEPS  (BACKGROUND)  * 

*  TTC39HLP  -  TO  PROVIDE  MORE  INFORMATION  ON  EACH  COMMAND  * 

************************************************************* 

*  TTC 3 9 . DATA  HAS  BEEN  CREATED  * 


The  last  line  is  displayed  only  when  the  pa 
TTC39.DATA  is  being  generated.  If  the  dat 
catalogued  previously,  it  will  not  be  regenerat 
accomodates  the  user  prepared  input  data, 
contains  input  data  for  the  Traffic  Genera 
parameters  for  the  GO  step,  and  POSTIN  input  s 
the  report  generation  of  the  Post-Analysis  step, 
concerning  the  preparation  of  these  data  the  use 
the  USER’S  MANUAL  (reference  1). 


rtitioned  dataset 
aset  had  been 
ed .  This  dataset 
Member  TRAFIN1 
tor,  GOIN1  input 
peci f ica t ions  for 
For  information 
r  is  referred  to 


-  wmm% 


The  associated  command  list  is  contained  in  member  TTC39  of 
partitioned  dataset  SYS9 .TTC39 . CLIST  and  is  shown  in  the 
following  listing: 


*  THE  HSF  INSTALLATION  PROVIDES  THE  FOLLOWING  *' 

*  COMMANDS  FOR  THE  EXECUTION  OF  THE  SYSTEM  *• 

*  *  • 

*  TTC39CMP  -  TO  COMPILE  A  MEMBER  IN  TTC39 . FORT  *' 

*  TTC39TRA  -  TO  GENERATE  THE  TRAFFIC  FILE  (FOREGROUND)  *' 

*  TTC39TRF  -  TO  GENERATE  THE  TRAFFIC  FILE  (BACKGROUND)  *' 

*  TTC39RUN  -  TO  EXECUTE  THE  MODEL  (BACKGROUND)  *' 

*  TTC39PST  -  TO  INVOKE  POST  ANALYSIS  PROGRAM  (BACKGROUND)*' 

*  TTC39SIM  -  TO  INVOKE  ALL  SIMULATION  STEPS  (BACKGROUND)  *' 

*  TTC39HLP  -  TO  PROVIDE  MORE  INFORMTION  ON  EACH  COMMAND  *' 

************************************************************ 


PROC  0  ,VOL(TSOWK4) 

TPRINT  'A*********************************************************** 

TPRINT  '*  THE  AN/TTC-39  SIMULATION  SYSTEM  HAS  BEEN  INVOKED  *’ 

TPRINT  '*  *• 

TPRINT  ' *  "  *' 

TPRINT  '*  THE  HSF  INSTALLATION  PROVIDES  THE  FOLLOWING  *' 

TPRINT  '*  COMMANDS  FOR  THE  EXECUTION  OF  THE  SYSTEM  *' 

TPRINT  '*  *' 

TPRINT  '*  TTC39CMP  -  TO  COMPILE  A  MEMBER  IN  TTC39 . FORT  *' 

TPRINT  •*  TTC39TRA  -  TO  GENERATE  THE  TRAFFIC  FILE  (FOREGROUND)  *' 

TPRINT  '*  TTC39TRF  -  TO  GENERATE  THE  TRAFFIC  FILE  (BACKGROUND)  *' 

TPRINT  '*  TTC39RUN  -  TO  EXECUTE  THE  MODEL  (BACKGROUND)  *• 

TPRINT  '*  TTC39PST  -  TO  INVOKE  POST  ANALYSIS  PROGRAM  (BACKGROUND)*' 

TPRINT  '*  TTC39SIM  -  TO  INVOKE  ALL  SIMULATION  STEPS  (BACKGROUND)  *' 

TPRINT  '*  TTC39HLP  -  TO  PROVIDE  MORE  INFORMTION  ON  EACH  COMMAND  *' 

TPRINT  ************************************************************* 
FILESTAT  TTC39.CNTL 
SYSRC  (EQ  0)  GO  TO  LABEL  4 
COPY  'SYS9.TTC39.CLIST( DUMMY ) '  TTC39.CNTL 
FREE  DA( TTC39.CN TL , ' S Y S9 . TTC39 . CL  1ST ' ) 

LABEL  4 

FILESTAT  TTC39 . DATA 

SYSRC  (EQ  0)  GO  TO  LABEL  5 

ATTR  A  LRECL( 80 )  RECFM( F  B)  BLKSIZE( 1 680 ) 

ALLOC  DA(TTC39 .DATA)  SP(60,60)  BL(1680)  DIR(5)  U(A)  VOL(&VOL.) 

TPRINT  '*  TTC39 . DATA  HAS  BEEN  CREATED  *' 

FREE  A( A) 

COPY  ’ SYS 9 . TTC39 .CLIST(TTC39GIN) '  TTC 3 9 . DATA( GO IN  1 )  NONUM 
COPY  *SYS9.TTC39.CLIST(TTC39TIN) '  TTC3 9 . DATA( TRAF IN  1 )  NONUM 
COPY  ' SYS9 .TTC39 .CLIST(TTC39PIN) ’  TTC3 9 . DATA( POST I N )  NONUM 
FREE  DA( 'SYS9.TTC39. CLIST* , TTC39 . DATA ) 

LABEL  5 

FILESTAT  TTC3 9S IN . DATA 
SYSRC  (EQ  0)  GO  TO  LABEL  6 

COPY  ' SYS9  . TTC3 9 .CLIST(TTC39SIN) *  TTC3 9 S IN . DATA 

TPRINT  '*  TTC  39  S IN . DATA  HAS  BEEN  CREATED  *' 

FREE  DA(TTC39SIN.DATA) 

LABEL  6 

FILESTAT  TTC39SLM . DATA 
SYSRC  (EQ  0)  GO  TO  LABEL  93 

COPY  ' SYS9  .TTC39 . CLIST(TTC39SLI ) ’  TTC 3 9 SLM . DATA  NONUM 

TPRINT  '*  TTC39SLM  .DATA  HAS  BEEN  CREATED  *' 

FREE  DA(TTC39SLM.DATA) 

LABEL  93 
END 


5 


IV 


EXECUTING  THE  JOB  STEPS 


For  each  simulation  step,  one  distinct  TSO  command  has  been 
created  which  requires  the  user  to  enter  up  to  four  mandatory 
keywords.  The  user  can  override  some  processing  parameters  by 
the  optional  keywords  which  are  listed  as  follows: 

IN(<member  of  input  data  set  TTC39.DATA>) 

OUT(<output  class)) 

R(<region  size)) 

TIME(<CPU  time  for  this  step)) 

NO(<one  character  job  name  modifier)*) 

The  available  optional  keywords  and  applicable  defaults  are 
listed  under  the  individual  job  steps.  However,  the  following 

two  options  are  available  for  all  command  lists  which  generate 

JCL  for  background  execution: 

JCL(X)  -  for  (X  =  EDIT)  the  user  may  first  check  and 

modify  the  JCL  which  is  available  at  the  terminal 

in  the  EDIT  mode.  The  user  may  then  submit  the 
job  by  entering  'SUB  The  default  is  X  for 

immediate  submission. 

ROUTE ( LOCAL )  -  This  option  allows  remote  users  to  specify  the 
printer  for  remote  printing  (  default  LOCAL  ). 


Before  the  job  is  submitted  for  background  execution,  all 
dataset  names  are  displayed  at  the  terminal.  Except  for  the 
Compile  Step  the  user  is  then  asked  to  check  the  names.  If  all 
names  are  correct  he  may  continue  processing  by  entering  'YES'. 


ft 


< 


m  . . .  ■» 

<o*a  -v^'^wKsst 


1.  THE  COMPILE  STEP 

The  following  command  has  been  provided  to  generate  the  JCL 
for  compiling  the  Traffic  Generator,  the  Simulator,  and  the  Post 
Analysis  Program  by  remote  job  entry  (see  Appendix  C): 

TTC39CMP  <your  name)  <your  id>  <task  no.>  <module  name) 

The  system  will  invoke  the  Fortran-G  Compiler  and  will  take  the 
source  input  from  partitioned  dataset: 

TTC39 . FORT( <module  name>) 

After  compilation  and  link-editing,  the  load  module  is 
placed  as  member  <module  name>  into  the  data  set  SYS9 . TTC39 . LOAD . 
The  system  will  respond  with  the  following  message  to  the 
terminal,  if  the  model  TTC39NEW  is  compiled: 

TTC39  LOAD  MODULE  SYS  9 . TTC3 9 . LOAD (TTC39NEW)  BEING  CREATED 

.he  following  optional  keywords  and  defaults  are  provided: 

OUT (A)  -  default  A  for  printer  output.  X,Y,  or  Z 

would  send  SYSPRINT  output  to  OUTPUT  class 
X,  Y,  or  Z. 

N0(0 )  -  Job  number  modifier  (default  0) 


The  command  list  is  contained  in  partitioned  dataset 
1 SYS9 .TTC39 . CL IST( TTC39CMP ) '  and  is  listed  below: 

PROC  4 , N  ID  TASK  MODEL  OUT(A)  N0(0)  R(180)  TIME(300)  JCL(X)  0RG() 

ROUTE (LOCAL )  LINES(IO)  F RM ( )  HASP() 

EDIT  ' SYS9 .SOL.CLIST(DUMMY) '  CNTL 

10  //&ID.C&N0.  JOB  (&TASK. ,&0RG. ,&TIME. .&LINES. ,&R. ,&FRM. ,&HASP.) ,&N. , 
20  //  MSGLEVEL=(1 ,1 ) ,N0TIFY=&ID. ,MSGCLASS*Q 

30  / *ROUTE  PRINT  &  ROUTE . 

40  //  EXEC  F0RTGCL, P ARM . F0 RT= ’ S 0U RCE , XREF , ID'  .REGION. FORT-&R.K, 

50  //  REGION. LKED=130K 
60  //FORT. SYSPRINT  DD  SYS0UT=&0UT. 

70  / / FORT . SYS  I N  DD  DSN=&ID . .TTC39 . F0RT( &MODEL . ) , DISP-SHR 
80  //LKED.SYSLMOD  DD  DSN=S YS 9 . TTC39 . LO AD ( &M0DEL . ) , DISP»SHR 
90  //LKED. SYSPRINT  DD  SYS0UT=&0UT. 

100  /* 

TPRINT  •*************************************************************' 
TPRINT  '*  LOAD  MODULE  SY S 9 . TTC 3 9 . L0 AD ( &M0DEL . )  BEING  CREATED  ** 

TPRINT  **  PRINTER  OUTPUT  IS  CLASS(&0UT.)  AND  IS  ROUTED  TO  &R0UTE .  *' 
TPRINT  *************************************************************** 
IF  ( &JCL .  EQ  EDIT)  GO  TO  LABEL  9 
SUB 

END  LIST 
LABEL  9 
TPRINT  ’EDIT' 
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2.  THE  TRAFFIC  GENERATION  STEP 


The  Traffic  Generator  will  be  invoked  by  the  following 
command : 

TTC39TRF  <yournarae>  <your  id>  <task  no.> 

The  following  optional  keywords  and  default  are  avalaible: 

NO ( 1  )  -  Job  Id  Modifier  (Default  I) 

OUT(A)  -  Output  Class  (Default  A  for  printer) 

TIME(5)  -  CPU  time  requested  (Default  5  minutes) 
TRAFIN(TRAFIN)  -  Input  dataset  specification  (default  TRAFIN) 

The  input  data  must  be  contained  in  a  member  of  partitioned 
dataset  TTC39.DATA.  Its  name  is  concatinated  by  the  optional 
keywords  TRAFIN  and  NO.  The  default  name  is  TRAFIN1 .  The  output 
dataset  name  is  TTC39  .TRAFFIC// ,  where  //  represents  the  number 
specified  by  optional  keyword  NO.  The  Command  list  contained  in 
SYS9.TTC39.CLIST(TTC39TRF)  is  as  follows: 


PROC  3 , N  ID  T  NO ( 1 )  OUT(A)  TIME(l)  R(180)  JCL(XXX)  TRAFIN(TRAFIN) 
ROUTE (LOCAL )  LINES(5)  F  RM( )  HASP()  ORG()  LOAD ( SY S9 . TTC 3 9  .  LOAD  ) 
FILESTAT  TTC39.,  TRAFFIC&NO. 

SYSRC  (EQ  0)  GO  TO  LABEL  1 

ATTR  A  LRECL ( 80 )  RECFM( F  B)  BLKS I Z E ( 3 1 2 0 ) 

ALLOC  DA( TTC39.TRAFFIC&N0. )  T  S P ( 1  , 1 0 )  U(A) 

FREE  A( A) 

FREE  DA(TTC39.TRAFFIC&NO. ) 

LABEL  1 

FILESTAT  TTC39 .CONFT&NO. 

SYSRC  (EQ  0)  GO  TO  LABEL  91 

ATTR  A  LRECL(800)  RECFM(U)  BLKSIZE(800) 

ALLOC  DA(TTC39. CONFT&NO.)  T  SP(1,10)  U(A) 

FREE  A( A) 

FREE  DA(TTC39 . CONFT&NO . ) 

LABEL  91 

FILESTAT  TTC39.0UT&N0. 

SYSRC  (EQ  0)  DELETE  TTC 3 9 . OUT& NO . 

TPRINT  '******************************************************** 


TPRINT  »*  AN/TTC3  9  TRAFFIC  GENERATOR  BEING  INVOKED  *’ 

TPRINT  **  BACKGROUND  EXECUTION  *' 

TPRINT  '* - - - *' 

TPRINT  '*  INPUT  DATASET  BEING  USED  IS:  TTC3 9 . DATA  ( &T RAF  IN . &N0 . )  * 

TPRINT  '*  OUTPUT  DATASETS  BEING  USED  ARE:  TTC3 9 . TRAFFI C& NO .  *' 

TPRINT  '*  TTC39 . OUT&NO .  *’ 

TPRINT  '*  TTC39. CONFT&NO.  *' 

TPRINT  '  * - - - - *  ' 

IF  ( &0UT .  NE  SAVE)  CO  TO  LABEL  5 

TPRINT  '*  PRINTER  OUTPUT  WILL  BE  STORED  IN  DATASETS  *’ 

TPRINT  '*  &ID. .TRF&NO. .OUTLIST  AND  &  I D . . SORT&NO .  .OUTLIST  *' 
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GO  TO  LABEL  6 
LABEL  5 

TPRINT  **  PRINT  OUTPUT  IS  CLASS(&OUT.)  AND  IS  SENT  TO  &ROUTE .  *' 

LABEL  6 

TPRINT  'a******************************************************* 

TPRINT  '  THE  FOLLOWING  JOB  CARD  PARAMETERS  ARE  SPECIFIED:  ' 

TPRINT  '  TIME  -  &TIME.00  SECS,  REGION  SIZE  -  &R.K,  LINES  -  ALINES. 00' 

ASK  '»>>  CHECK  DATASET  NAMES.  DO  YOU  WANT  TO  CONTINUE  ?  <<<<<«' 

SYS RC  (EQ  4)  GO  TO  LABEL  9 
EDIT  TTC39  CNTL 
DEL  20  10000 

10  //&ID.T&NO.  JOB  (&T.  ,  &  ORG .  ,&TI ME. 00, ALINES.  ,&R. , &FRM . , &HASP . ) ,&N. , 

20  //  MSGLEVEL-(1 , 1 ) .NOTIFY-&ID. .MSGCLASS-Q 

30  /*ROUTE  PRINT  &ROUTE. 

40  //TRAF  EXEC  PGM-T RAFGEN , RE G ION-& R . K , TIME-&T IME . 

50  / /TRAF . STEPLI B  DD  DSN-&LOAD.  ,DISP“SHR 

60  //TRAF.FT0IF001  DD  DS N-& I D . . TTC3 9 . DATA ( &TRAFI N . &N0 . ) , 

70  //  DISP-SHR,LABEL-( ,  ,  , IN) 

80  / /TRAF .FT06F00I  DD  SYSOUT-&OUT. 

90  //TRAF.FT13F001  DD  DS N-& I D ..  TTC3 9 . OUT&NO ., UNIT-SYSTS , 

100  //  DISP-(NEW  ,CATLG) , SPACE- (TRK , (I  , 100))  , 

110  //  DCB-(LRECL«84 , RECFM-VB S , BLKS IZE-32 80 ) 

111  //TRAF.FT12F001  DD  DSN-&ID. .TTC39 . CONFT&NO . .UNIT-SYSTS .DISP-OLD 
120  / /TRAF .FT03F001  DD  DSN-& &TRAFF I C , UN I T-S YSDA , D ISP- ( NEW , PASS ) , 

130  //  SPACE-(CYL,(2 , 1 ))  , 

140  //  DCB=(LRECL-80,RECFM-FB,BLKSIZE“3120) 

160  //SORT  EXEC  PGM-IERRCOOO.REGION-&R.K 
170  //SYSOUT  DD  SYSOUT-&OUT . 

180  //SORTLIB  DD  DS  N  =  S  YS  1  .  SORTL I B  ,  DI SP  =*S  HR 

190  //S0RTWK01  DD  UN IT  =  SYS DA , SPACE  =  ( C YL , 5 ,  ,  CONTIG ) 

200  //SORTWK02  DD  UN IT  =  S YS DA , SPA CE - ( C YL , 5 ,  ,  CONTIG ) 

210  //SORTWK03  DD  UN IT-SYS DA , SPA CE- ( CYL  ,  5 ,  ,  CONTIG ) 

220  //SORTIN  DD  DSN-& &TRAFF IC , UNIT-S YS DA , D ISP- ( OLD , DELETE ) , 

230  //  DCB-(LRECL-80,RECFM-FB,BLKSIZE-3120) 

240  //SORTOUT  DD  DSN-& I D . . TTC 3 9 . TRAF F IC&NO . , UNIT- 3330 , DISP- (OLD ,KEEP ) , 
250  //  DCB-(LRECL=80 .RECFM-FB, BLKSIZE-31 20 ) 

270  //SYSIN  DD  * 

280  SORT  FIELDS=(46 , 1 5 , CH , A, 1 ,5 ,FI ,A) 

290  /* 

IF  ( &OUT .  NE  SAVE)  GO  TO  LABEL  7 
DE  (TRF&NO. .OUTLIST , SO RT& NO . .OUTL I  ST ) 

80  //TRAF .FT06F001  DD  DSN-& I D .  .T RF&NO  .  .OUTLI ST  , 

81  //  UNIT-SYSTS ,DISP-(NEW  , CAT LG )  , 

8  2  //  SPACE -(  158  4  ,(  100 ,600) ) , DCB- (LRECL- 1 32  .BLKSIZE-1584  .RECFM-FBS) 

170  //SYSOUT  DD  DSN-& ID  .  .  SO RT& NO .  . OUTLI ST , 

171  //  UNIT-SYSTS, DISP-(NEW ,CATLG) , 

172  //  SPACE- ( 1 584,(100,600)) , DC B- (LRECL- 1 3 2 , BLKS I ZE- 1 584 , RECFM-FBS ) 

LABEL  7 

IF  (&JCL.  EQ  EDIT)  GO  TO  LABEL  9 
SAVE  TTC39 
END  LIST 

SUBMIT  TTC39.CNTL 
LABEL  9 

TPRINT  'EDIT  ' 


1 


by 


The 
the  £ 


Traffic  Generator  may  also  be  invoked  in 
ollowing  command: 

********************************** 

*  TTC39TRA  IN(<meraber  name>)  * 

********************************** 


the 


foreground 


Two  optional  keywords,  TRAF1N  and  NO,  specify  the  member  of 
partitioned  dataset  TTC39.DATA  to  be  used  as  input.  The  same 
rules  as  for  batch  execution  apply. 


The  following  is  a  listing  of  the  command  list  contained  in 
dataset  ' SYS9 . TTC39 . CL  1ST ( TTC3 9TRA ) ' : 

PROC  0,  NO ( 1 )  TRAFIN(TRAFIN)  LOAD ( ' S Y S9 . TTC 3 9 . L0 AD ( T RAFGEN ) ' ) 

V0L1 (TS0WK1 )  V0L2 (TS0WK2 )  VOL3(TSOWK3)  PR(*) 

FREE  A( A) 

FREE  F ( FTO 1 F00 1  .FT13F001  .FT03F001  .FT12F001  .FT06F001 ,  SYSOUT , SYSPR INT ) 
TPRINT  **************************************************************** 


TPRINT  '  AN/TTC39  TRAFFIC  GENERATOR  INVOKED  * 

TPRINT  *  FOREGROUND  EXECUTION  * 

TPRINT  ' - ' 

TPRINT  '  INPUT  DATA  SET  :  TTC 3 9 . DATA( &T RAF  IN . &N0 . )  * 

TPRINT  '  OUTPUT  DATA  SETS:  TTC39  .  TRAFFIC6.N0 .  ' 

TPRINT  '  TTC39.0UT&N0.  ' 

TPRINT  '  TTC39.CONFT&NO.  ' 


TPRINT  **************************************************************** 

IF  (6.PR.  EQ  *)  GO  TO  LABEL  11 

FILESTAT  6.PR.  .OUTLIST 

SYSRC  (  EQ  0)  GO  TO  LABEL  12 

FREE  A( A) 

ATTR  A  RECFM ( F  B  S)  LRECL(134)  BLKSIZE(268) 

ALLOC  DA(6.PR.  .OUTLIST)  SPACE(10,60)  BL0CK(268)  U(A) 

FREE  A( A) 

LABEL  12 

ALLOC  FILE(FT06F001  )  D  A(  6. P  R  . .  OUTL I  ST  )  SHR 
ALLOC  FILE(SYSPRINT)  DA( &PR . .OUTLIST )  SHR 
ALLOC  F ILE ( SYSOUT )  D A( * ) 

TPRINT  '  PRINT  OUTPUT  IS  SAVED  IN  6.PR.  .OUTLIST  ' 

GO  TO  LABEL  13 
LABEL  11 

ALLOC  FILE(FT06F001)  DA( *  ) 

ALLOC  FILE (SYSOUT  )  D A( * ) 

ALLOC  FILE(SYSPRINT)  D A ( * ) 

TPRINT  *  PRINTER  OUTPUT  IS  TERMINAL’ 

LABEL  13 

TPRINT  **************************************************************** 

FILESTAT  BWTGN06.N0  .  .DATA 
SYSRC  (EQ  0)  GO  TO  LABEL  2 

ATTR  A  LRECL(80  )  REC  FM( F  B)  BLKS I ZE ( 3 1 20 ) 

ALLOC  DA(  BWTGN06.N0  .  .  DATA)  T  SP(1,10)  U(A) 

FREE  A( A ) 

LABEL  2 
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FILESTAT  TTC39 . OUT&NO . 

S YSRC  (EQ  0)  GO  TO  LABEL  4 

ATTR  A  LRECL( 84 )  RECFM( V  B  S)  BLKS IZE ( 3 280 ) 

ALLOC  DA(TTC39. OUT&NO.)  T  SP(1,10)  U(A) 

FREE  A( A) 

LABEL  4 

FILESTAT  TTC39. CONFT&NO. 

SYSRC  (EQ  0)  GO  TO  LABEL  5 

ATTR  A  LRECL ( 800 )  RECFM(U)  BLKSIZE(800) 

ALLOC  DA(TTC39 .CONFT&NO.)  T  SP(1,10)  U(A) 

FREE  A( A) 

LABEL  5 

COPY  TTC39.DATA(&TRAFIN.&NO. )  TTC39.TRAFIN 
ALLOCATE  F(FTOIFOOI)  DA(TTC39 . TRAFIN) 

ALLOCATE  DA (TTC39. CONFT&NO.)  F(FT12F001) 

ALLOCATE  DA( TTC3 9 . OUT&NO  .  )  F(FT13F001) 

ALLOCATE  DA( BWTGNO&NO . . DATA)  F(FT03F001) 

CALL  ' &LOAD  .  ' 

COPY  BWTGNO&NO. .DATA  TTC3 9T RF . DATA  NONUM 
DE  TTC39. TRAFIN 
DE  BWTGNO&NO. .DATA 

FREE  DA(TTC39TRF . DATA , TTC 39 . OUT&NO  .  ) 

FREE  F ( SORTLIB .SORTWKOl  , S0RTWK02  ,  SO RTWK03 , SORTIN , SORTOUT , SYSIN) 

ALLOC  FILE ( SORTLIB )  DA( 1 SYS1 . SORTLIB ' )  SHR 
ALLOC  FILE(SORTWKOl )  CYL  SPACE(2,1)  VOL(&VOLl.) 

ALLOC  FILE ( S0RTWK02 )  CYL  SPACE(2,1)  VOL(&VOL2.) 

ALLOC  FILE(SORTWK03 )  CYL  SPACE(2,1)  VOL(&VOL3.) 

ALLOC  F I LE ( SORT IN)  DA( TTC39TRF . DATA)  SHR 
FILESTAT  TTC39 .TRAFFIC&NO. 

SYSRC  (EQ  0)  GO  TO  LABEL  1 

ATTR  A  LRECL ( 80 )  RECFM ( F  B)  BLKS I ZE ( 3 1 20  ) 

ALLOC  DA(TTC39. TRAFFIC&NO. )  T  SP(1,10)  U(A) 

FREE  A( A) 

LABEL  1 

ALLOC  FILE ( SORTOUT )  DA(TTC39 .TRAFFIC&NO. )  SHR 
ALLOC  FILE (SYSIN)  D A( TTC3 9 S IN . D AT  A ) 

X  IGHRCOOO 
DE  TTC39TRF .DATA 

FREE  F(SYS0UT,S0RTLIB,S0RTWK01 , SORTWK02 ,  S0RTWK03 , SORTIN , SORTOUT , SYSIN ) 
FREE  F( FTO 1F001  .FT13F001 .FT03F001  .FT12F001  .FT06F001  .SYSPRINT) 

END  LIST 


l  1 


3.  THE  MODEL  EXECUTION  STEP 


The  model  is  executed  by  the  TSO  command: 

TTC39RUN  <your  name)  <your  id>  <task  no.) 


The  system  will  respond  with  the  following  message  when 
the  model  is  executed: 


********************************************************** 


*  THE  AN/TTC-39  MODEL  EXECUTION  STEP  * 

*  BACKGROUND  EXECUTION  * 

*  - * 

*  INTERMEDIATE  DATASETS  ARE  SAVED  UNDER:  * 

*  T8003 .TTC39 .XCOMOUT1  * 

*  T8003 .TTC39 . YCOMOUT1  * 

*  T8003 .TTC39 . STAT1  * 

*  T8003  .TTC39 .TRFOUT1  * 

*  T8003.TTC39.RAND0UT1  * 

*  T8003 .TTC39.TRUNK1  * 

*  - * 


*  THE  INPUT  DATASETS  TO  BE  USED  ARE:  * 

*  T8003  ,TTC39.DATA(GOINI )  * 

*  T8003.TTC39.0UT1  * 

*  T8003 .TTC39.TRAFFIC1  * 

*  T8003 .TTC39.CONFT1  * 

*  - * 


* 

*** 


PRINTER  OUTPUT  IS  CLASS(A) 

****************************************************** 


* 

* 


The  following  optional  keywords  are  available  to  override 
the  default  parameters: 

R( 500K ) 

NO(  1  ) 

OUT ( A ) 

T IME ( 6 ) 

GOIN(GOIN) 


The  command  list  executed  is  stored  in  SYS9 . TTC39 . CLIST(TTC39RUN) 
and  is  listed  as  follows: 

PROC  3 , N  ID  T  M ( TTC 3 9NEW )  R(500)  N 0 ( 1 )  OUT(A)  TIME(6)  GOIN(GOIN) 
TYPRUN(X)  JCL(X)  ROUTE ( LOCAL )  ORG()  LINES(IO)  F RM ( )  HASP()  UNIT(SYSTS) 
TPRINT  'A*****************************************************' 

TPRINT  '*  THE  AN/TTC-39  MODEL  EXECUTION  STEP  *' 


TPRINT  '*  BACKGROUND  EXECUTION  *' 

TPRINT  '* - ** 

TPRINT  '*  INTERMEDIATE  DATASETS  ARE  SAVED  UNDER:  *' 

TPRINT  '*  &ID. .TTC39.XCOMOUT&NO. 

TPRINT  '*  &  I  D . .TTC39.YCOMOUT&NO. 
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-  The  Region  size  (default  500K) 

-  The  Job  Id  modifier  (  default  1) 

-  The  Output  Class  (default  A  for  Printer) 

-  CPU  time  requested  (default  6  minutes) 

-  Input  Date  Set  (default  TTC39 . DATA(GOIN)  ) 


*  ' 
*  » 


TPRINT 

•  * 

&  I D 

TPRINT 

•  * 

&ID 

TPRINT 

*  * 

&ID 

TPRINT 

•  * 

&ID 

TPRINT 

**  THE 

INPUT  DATASETS 

TPRINT 

•  * 

&  I D . 

TPRINT 

•  * 

&ID. 

TPRINT 

»  * 

&  I D . 

TPRINT 

•  * 

&ID  . 

TPRINT 

RANDOUT&NO, 


TO  BE  USED  ARE; 


*  • 


.* » 


SAVE)  GO  TO  LABEL  5 

PRINT  OUTPUT  IS  SAVED  IN 

6 


&ID.  .CO&NO. .OUTLIST 


PRINTER  OUTPUT  IS  CLASS ( &OUT . ) 


IF  (&OUT  NE 
TPRINT  » 

GO  TO  LABEL 
LABEL  5 
TPRINT  '* 

LABEL  6 

TPRINT  ******************************************************** 
FILESTAT  TTC39.XCOMOUT&NO . 

SYSRC  (EQ  0)  DELETE  TTC 3 9 . XC OMOUT&NO . 

FILESTAT  TTC39.YC OMOUT&NO. 

SYSRC  (EQ  0)  DELETE  TTC 39 . YCOMOUT&NO . 

FILESTAT  TTC 3 9 .TRFOUT&NO. 

SYSRC  (EQ  0)  DELETE  TTC3 9 . TRFOUT&NO . 

FILESTAT  TTC39 . STAT&NO . 

SYSRC  (EQ  0)  DELETE  TTC39 . STAT&NO . 

FILESTAT  TTC39. RANDOUT&NO. 

SYSRC  (EQ  0)  DELETE  TTC39 . RANDOUT&NO . 

FILESTAT  TTC39.TRUNK&NO. 

SYSRC  (EQ  0)  DELETE  TTC3 9 . TRUNK&NO . 

TPRINT  '  THE  FOLLOWING  JOB  CARD  PARAMETERS  ARE  SPECIFIED: 


TPRINT  '  TIME 


&TIME.00  SECS,  REGION  SIZE 


•  &R.K,  LINES  -  &LINES . 000 ' 
TO  CONTINUE  ?  >»»>>' 


20 

30 

IF 

GO 


ASK  *«<<<  CHECK  DATASET  NAMES.  DO  YOU  WANT 
SYSRC  (EQ  4)  GO  TO  LABEL  99 
EDIT  TTC39  CNTL 
DEL  20  10000 

10  //&ID.G&NO.  JOB  (&T. ,&ORG. , &TIME . 00 , &LI NES . ,&R. ,&FRM. ,&HASP.) ,&N. , 
//  NOTIFY-&ID. .MSGCLASS-Q 
/•ROUTE  PRINT  &R0UTE. 

( &TYPRUN .  EQ  HOLD)  GO  TO  LABEL  1 
TO  LABEL  2 
LABEL  1 

35  /*MESSAGE  THIS  JOB 
C  20  /Q/Q.TYPRUN-HOLD 
LABEL  2 

40  //GO  EXEC  PGM-&M. , REG  ION -& R . K , TIME- ( &TIME .  ,40) 

//GO.STEPLIB  DD  DSN-S YS 9 . TTC 3 9 . LO AD , D IS P- SHR 
//GO  .FT09F001  DD  DSN-&ID . .TTC39 . DATA( &GOIN . &NO . ) 

//  DISP-SHR,LABEL-(  ,  , ,IN) 

/ /GO  .  FT06F001  DD  SYSOUT-&OUT. 

/ /GO  .  FT20F001  DD  DI S P- (  ,  DE LETE  )  , UN IT-S YS DA , 

//  SPACE -(CYL ,(1,1) , RLSE ) , DCB- ( RECFM-VS ) 


NEEDS  &R.K  OF  CORE  AND  &TIME .  MIN  CPU  TIME 


50 

60 

70 

80 

90 

100 


110  //GO.FT21F0  01  DD  DISP- (,  DELETE ), UNIT-SYSDA 
120  //  SPACE-(CYL,(1 , 1) ,RLSE) , DCB- ( RECFM-VS ) 
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130  / /GO . FT  22F00 1  DD  DISP= (, DELETE) .UNIT-SYSDA  , 

140  //  SPACE=(CYL,(1  ,1  )  ,RLSE)  ,DCB-(RECFM=VS) 

150  //GO. FT23F001  DD  DISP- (, DELETE ), UNI T-S YSDA , 

160  //  SPACE=(CYL,(1  , 1 ), RLSE ), DCB- (RECFM-VS ) 

170  //GO.FT24F001  DD  DISP- (,  DELETE ), UNIT-SYSDA , 

180  //  SPACE-(CYL, (1 , 1 ) ,RLSE) , DCB- (RECFM-VS  ) 

190  //GO.FT25F001  DD  DISP- (, DELETE ) ,UNIT  =  SYSDA  , 

200  //  SPACE=(CYL, (1 ,1 ) ,RLSE) , DCB- (RECFM-V S ) 

210  //GO .FT26F001  DD  DI S P= ( , DE LETE ) , UNI T-S YS DA , 

220  //  SPACE=(CYL,(1 ,1 ) ,RLSE),DCB-(RECFM=VS) 

230  //GO.FTlOFOOl  DD  DISP- (SHR) .DSN-&ID . .TTC39 .TRAFFIC&NO. 

240  //GO.FT32F001  DD  DI SP- ( SHR ) , DSN- & ID . .TTC39 . OUT&NO . 

250  / /GO . FT30F0  01  DD  DI SP -( NEW , CATLG ), UNIT-&U N IT  .  , 

260  //  DSN-&ID. .TTC39.XCOMOUT&NO.  , 

270  //  SPACE - (T RK, ( 1 , 10) ,RLSE) , DCB- ( L RECL- 1 00 , RE C FM-VBS , BLKS IZE-400 ) 

280  //GO.FT31F001  DD  D I SP- ( NEW , CATLG ) , UNIT-&UNIT .  , 

290  //  DSN-&ID. .TTC39. YCOMOUT&NO.  , 

300  //  SPACE- (TRK , ( 1 , 10) ,RLSE) , DCB -( LRECL- 1 00 , RE CFM-VBS , BLKS IZE-400 ) 

310  //GO.FT33F001  DD  D I S P= ( NEW , CATLG ) , UN I T-&UN IT .  , 

320  //  D SN-& I D . . TTC 39 . TRFOUT& NO . , 

330  //  SPACE  - (T RK, ( 1,10) , RLSE ) , DCB =( LRE CL- 1 00 , RECFM-FB , BLKS IZE-400 ) 

340  //GO.FT34F001  DD  D I SP- ( NEW , CATLG ) , UNIT-&U N IT .  , 

350  //  DSN  =  & I D . . TTC 3 9 . RANDOUT&N 0 .  , 

360  //  SPACE- (TRK, ( 1 ,10) , RLSE ) , DCB- ( LRECL- 1 00 „ RECFM-F B , BLKS IZE-800 ) 

370  //GO .FT35F001  DD  D I SP- ( NEW , CATLG ) , UNIT-&U NIT . , 

380  //  DSN-&ID.  .TTC39 .STAT&NO. , 

390  //  SPACE- (T RK, ( l , 10) ,RLSE) , DCB- (LRECL- 1 00 , RECFM-VBS , BLKS IZE-400 ) 

391  //GO. FT38K001  DD  D I SP  =  ( OLD , KEEP ) , UN  IT - &UN IT .  , 

392  //  DSN-&ID. .TTC39.C0NFT&N0. 

450  //CO.FT41F001  DD  DUMMY 

460  //GO  .FT5 1F001  DD  DUMMY 

470  //GO.FT27F001  DD  D I S P- (  , DE LETE ) , UNIT-S YS DA , 

480  //  SPACE»(CYL, (1 , 1 ) ,RLSE) , DCB- ( RECFM-VS ) 

490  //G0.FT28F001  DD  D I SP- ( , DE LETE ) , UN I T-S YS DA , 

500  //  SPACE-(CYL , ( 1 , 1 ) .RLSE) , DCB- ( RECFM-VS  ) 

510  //GO.FT42F001  DD  DI SP- (NEW , CATLG  ), UNI T-S YSTS , 

520  //  DSN-&ID . .TTC39 .TRUNK&NO . , SPACE  =  (TRK , (20 ,20)  ,RLSE ) 

530  /* 

IF  ( &OUT .  NE  SAVE)  GO  TO  LABEL  7 
DE  GO&NO.  .OUTLIST 

80  //GO.  FT06F001  DD  DS N= & I D  .  .  G0& NO  .  .  OUTLI ST  , 

81  //  UNIT-SYSTS,DISP  =  (NEW  , CATLG)  , 

82  //  SPACE -(1584, (100, 600)) , DCB- (LRECL- 1 3 2  ,  BLKS IZE- 1 584  ,  RECFM-F BS ) 

LABEL  7 

IF  ( &JCL .  EQ  EDIT)  GO  TO  LABEL  9 

SAVE  TTC39 

END 

SUBMIT  TTC39.CNTL 
LABEL  99 
LABEL  9 

TPRINT  'EDIT  ' 
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THE  POST  SIMULATION  ANALYSIS  STEP 


The  Post-Simulation  Analysis  program  is  invoked  by  the 
command 

TTC39PST  <your  name>  <your  id>  <task  no> 

The  following  optional  keywords  are  available  to  override 
the  systems  default  parameter: 

NO ( 1 )  -  The  Job  Id  Modifier  (default  1) 

OUT(A)  -  Output  Class  (Default  Class  A  for  printer) 

Time(2)  -  CPU  Time  requested  (Default  2  minutes) 

The  command  list  is  stored  in  date  set  SYS9 .TTC39 . CLIST(TTC39PST) 
and  is  listed  as  follows: 

PROC  3  , N  ID  T  NO ( 1 )  OUT(A)  TIME(2)  JCL(X)  ROUTE(LOCAL)  ORG()  HASP() 
LINES ( 15)  FRM( )  R(180) 

TPRINT  1  ********************************************************** 1 


TPRINT  '*  THE  TTC39  POST  PROCESSOR  IS  BEING  INVOKED  *' 

TPRINT  '* - *’ 

TPRINT  **  THE  SIMULATOR  OUTPUT  DATA  SETS  TO  BE  ANALYSED  ARE:  *' 

TPRINT  '*  "AID. .TTC39.XCOMOUTANO."  *' 

TPRINT  '*  "AID. .TTC39.YCOMOUTANO.”  *’ 

TPRINT  ’*  "AID. .TTC39.TRFOUTANO."  *' 

TPRINT  '*  "AID. .TTC39.STATANO.”  *' 

TPRINT  '*  "AID. .TTC39 . RANDOUTANO."  ** 

TPRINT  ' * - * ' 


IF  ( AOUT  NE  SAVE)  GO  TO  LABEL  5 

TPRINT  '*  PRINT  OUTPUT  IS  SAVED  IN  A I D  .  .  PSTA NO  . . OUTLI ST  *' 

TPRINT  '*  AND  IN  A  I D . . POS TA NO . . OUTL I ST  *' 

GO  TO  LABEL  6 
LABEL  5 

TPRINT  '*  PRINTER  OUTPUT  IS  CLASS(AOUT.)  * 

LABEL  6 

TPRINT  '*  PRINTER  OUTPUT  IS  ROUTED  TO  AROUTE.  *' 

TPRINT  '**********************************************************• 

TPRINT  '  THE  FOLLOWING  JOB  CARD  PARAMETER  ARE  SPECIFIED:  ' 

TPRINT  •  TIME  =  &TIME.00  SECS,  REGION  SIZE  -  &R.K,  LINES  -  ALINES .000 ' 
ASK  ’<<<<<  CHECK  DATASET  NAMES.  DO  YOU  WANT  TO  CONTINUE  ?  >>>>>>>’ 

SYS RC  (EQ  4)  GO  TO  LABEL  99 
FILESTAT  TTC3  9SLM . DATA 
SYSRC  (EQ  0)  GO  TO  LABEL  93 

COPY  ' SYS9  .TTC39.CLIST(TTC39SLI  )  *  ' A  ID. .TTC39SLM .DATA*  NONUM 
FREE  DA(TTC39SLM  .DATA) 

LABEL  93 

EDIT  TTC39  CNTL 

DEL  20  10000 

10  / /AID  .  S&NO  •  JOB  ( AT  .  ,  AORG . , ATIME .00 , ALINES .  ,AR . ,AFRM . , AHASP. ) , AN . , 
020  //  MSGCLASS-Q.NOTIFY-AID. 

030  / *ROUTE  PRINT  AROUTE. 
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040  //POST  EXEC  PGM'POSTS IM , REGION® 1 2QK , TIME- ( &T  IME  40  ) 

050  //POST.STEPLIB  DD  D  SN=*  S  YS  9  .  TTC  3  9  .  LO  AD  ,  D  I SP-S  HR 

060  //POST.FT05F001  DD  DSN  =  & I D . .TTC3 9 . DATA( POST  IN ) , DI SP-SHR 

070  //POST.FT06F001  DD  SYSOUT-&OUT. 

080  //POST.FT07F001  DD  SYS0UT=&0UT. 

090  //POST.FTlOFOOl  DD  DSN-& I D . .TTC39 . XCOMOUT&NO  .  , UNIT-S YSDA , 

100  //  DC8“(RECFM=VBS,LRECL“100  ,BLKSIZE*400)  ,DISP“(SHR,KEEP) 

110  //P0ST.FT1  1F001  DD  DS N  =  & & S CRATCH , U NI T- S YS DA , D ISP- ( NEW  ,  DELETE )  , 

120  //  DCB-(LRECL«2500  ,RECFM  =  VBS,BLKSIZE-2500)  , 

130  //  SPACE=(CYL,(1 , 1  )  ) 

140  //POST.FT31F001  DD  DSN  =  & I D  .  . TTC 3 9 . YCOMOUT&NO . , U N1T-S YSDA , 

150  //  DCB“(LRECL=100,RECFM=VBS,BLKSIZE=400) , D ISP= ( S HR , KEEP ) 

160  //POST.FT33F001  DD  DSN  =  & I D . .TTC3 9 . TRFOUT&NO .  .UNITES YS DA  , 

170  //  DCB”(LRECL=100  ,RECFM=*FB,BLKSIZE  =  400)  ,DISP  =  (  SHR  ,  KEEP  ) 

171  //POST.FT34F001  DD  DSN-& I D . .TTC 39 . RANDOUT&NO . , DISP« (OLD , KEEP ) 

180  //POST.FT35F001  DD  D SN- & I D . . TTC 3 9 . ST AT& NO . , UNITES YS DA , 

190  //  DCB«(LRECL=100 ,RECFM  =  VBS, BLKSIZK  =  400) , DI SP= ( OLD  ,  KEEP )  , 

200  //  SPACE-(TRK,(20,20  )  ,RLSE) 

201  //POST.FT39F001  DO  DS N =& I D . . TTC3 9 S LM . DATA , D I SP= ( SHR , KEEP ) 

210  /* 

IF  (&OUT.  NE  SAVE)  GO  TO  LABEL  7 
DE  (PST&NO. .OUTLIST , POST&NO  .  .OUT  LI  ST) 

70  //POST.FT06F001  OD  DS N  =  & I D . . P ST& NO  .  . OUTL I  ST , 

71  //  UNIT«SYSTS,DISP=(NEW  , CAT LG)  , 

72  //  SPACE =(1 584 ,( 100,600)) ,DCB=(L RE CL= 132 .BLKSIZE- 15 84 , RECFM-FBS ) 

80  //POST. FT07F001  DD  DSN »& I D . . POST& NO . . OUTLI ST  , 

81  //  UNIT  =  SYSTS ,DISP»(NEW  ,CATLG) , 

8  2  //  SPACE  =  (  1  58  4  ,  (  100 ,600))  ,  DCB=  (LRECL=>  132  ,  BLKSIZE- 1  584  .RECFM-FBS) 

LABEL  7 

IF  ( & JCL .  EQ  EDIT)  GO  TO  LABEL  9 

SAVE  TTC39 

SUB 

LABEL  99 
END 

LABEL  9 

TPRINT  'EDIT  ' 
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V.  THE  TTC39HLP  COMMAND 

The  TTC39HLP  Command  allows  the  TSO  user  to  Inquire  about 
details  of  the  individual  commands.  By  entering  the  command 
TTC39HLP  all  available  commands  are  listed.  To  obtain  more 
details  on  each  command  the  user  must  enter 

TTC39HLP  C(<command  name)) 


The  f 

ollowing  Command 

List 

i  s 

TTC39HLP  i 

s  executed 

• 

PROC  0,  C( 

TTC39HLP ) 

IF 

(&C.  EQ 

TTC39HLP ) 

GO 

TO 

LABEL 

1 

IF 

(&C.  EQ 

TTC39PST ) 

GO 

TO 

LABEL 

6 

IF 

(&C.  EQ 

TTC39 )  GO 

TO 

LABEL  3 

IF 

(&C.  EQ 

TTC39CMP ) 

GO 

TO 

label 

4 

IF 

(&C.  EQ 

TTC39RUN ) 

GO 

TO 

LABEL 

5 

IF 

(&C.  EQ 

TTC39TRF ) 

GO 

TO 

LABEL 

7 

IF 

(&C.  EQ 

TTC39TRA ) 

GO 

TO 

LABEL 

8 

IF 

(&C.  EQ 

TTC39SIM ) 

GO 

TO 

LABEL 

9 

TPRINT  'NO 

FURTHER  INFORMAL 

'ION  AVA 

********************  • 


GO  TO  LABEL 
LABEL  3 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
GO  TO 
LABEL 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
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'FUNCTION 

i 


TO  CREATE  ALL  TEMPORARY  DATA  SETS  NECESSARY  FOR' 
THE  EXECUTION  OF  ANY  STEP  OF  THE  AN/TTC39  SWITCH' 
SIMULATION  SYSTEM.  DATA  SETS  WHICH  EXIST  WILL  ' 
NOT  BE  RECREATED.  THERE  IS  ONLY  ONE  USER  ' 

ACCESSABLE  DATASET:  ’ 

■ 

TTC  3  9 . DATA  -  THIS  PARTITIONED  DATA  SET  CONTAINS  THE  DATA' 
NEEDS  AS  INPUT  FOR  THE  INDIVIDUAL  STEPS.  ' 
MEMBER  (TRAFIN)  FOR  THE  TRAFFIC  GENERATOR  ' 
MEMBER  (POSTIN)  FOR  THE  POST  SIMULATION  STEP' 
MEMBER  (GOIN)  FOR  THE  SIMULATION  STEP’ 


'SYNTAX 
LABEL  100 
4 

'FUNCTION 

I 

t 

• 

f 


TTC  3  9 


TO  INVOKE  THE  FORTH  COMPILER.  THE  FORT  SOURCE  CODE' 
CONTAINED  IN  YOUR  TEMPORARY  DATASET  <MODEL> • FORT  1 
IS  COMPILED  AND  LINK-EDITED.  THE  LOAD  MODULE  IS  1 
PLACED  INTO  YOUR  TEMPORARY  DATA  SET  TTC39 .LOAD  1 
AS  THE  MEMBER  (<MODEL>).  1 


i 


TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 


'SYNTAX  ' 

'  TTC39CMP  <NAME>  <ID>  <TASK>  <MODEL>  OUT(A)  NO(l)  JCL(X)  ' 

' ROUTE ( LOCAL ) ' 

i  i 

’REQUIRED  -  <NAME> ,  <ID>,  <TASK> ,  <MODEL> ' 

'ALIAS  -  NONE' 

'EXAMPLE  -  TTC39CMP  MILLER  T8003  10321240  TTC39NEW  OUT(X)  ' 

•  i 


'OPERANDS  -' 

i  t 

'  < N AM E >  YOUR  NAME,  AS  TO  APPEAR  IN  JCL.' 

'  < I D>  YOUR  BADGE  NUMBER  WITH  PREFIX.’ 

'  <TASK>  A  VALID  TASK  NUMBER.' 

’  <MODEL>  THE  NAME  OF  YOUR  MODEL,  AS  USED  IN  COMPILE  STEP.' 

'  OUT ( X )  OPTIONAL,  USED  TO  SPECIFY  OUTPUT  CLASS.  YOU  MAY' 

'  SPECIFY  "Y",  "Z”,  OR  "A”.  DEFAULT  IS  "X”.  ' 

'  OUT ( A)  -  SYSPRINT  OUTPUT  IS  SENT  TO  PRINTER.' 

'  OUT(X) , OUT ( Y ) ,OUT(Z)  -  SYSPRINT  OUTPUT  I  SENT  TO' 

'  OUTPUT  CLASS  X,  Y,  OR  Z,  AND  MAY  BE  SCANNED  AND' 

'  SAVED  BY  THE  OUTPUT  FUNCTION.  FOR  HELP  ENTER' 


TPRINT  ' 
TPRINT  ' 

NO  (  1  ) 

TPRINT  ' 
TPRINT  ' 
TPRINT  ' 

JCL (X  ) 

TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 

ROUTE ( X  ) 

TPRINT  ' 

TPRINT  ' 

TPRINT  ' 

TPRINT  ' 

TPRINT  ' 

GO  TO  LABEL  100 

LABEL  5 
TPRINT  ' 

FUNCTION  - 

TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 
TPRINT  ' 

• 

"HELP  OUTPUT"  ' 

OPTIONAL,  THE  ONE  CHARACTER  SYMBOL  IN  PARENTHESIS' 
IS  ASSIGNED  AS  THE  LAST  LETTER  TO  THE  JOB  NUMBER.' 
DEFAULT  IS  "1". 

OPTIONAL,  THIS  KEYWORD  ALLOWS  YOU  TO  SPECIFY  ' 

THAT  YOU  WANT  THE  JCL  GENERATED  BY  THIS  COMMAND  ' 
PLACED  INTO  THE  EDIT  MODE  FOR  FURTHER  EDITING.' 
JCL(EDIT)  WILL  ACCOMPLISH  THIS  .  THE  DEFAULT  ' 

IS  JCL(X)  FOR  DIRECT  SUBMISSION.  TO  EXECUTE  ' 

IN  THE  EDIT  MODE  SIMPLY  ENTER  "SUB  *"  ' 

ALLOWS  PRINTER  OUTPUT  TO  BE  ROUTED  TO  ' 

A  REMOTE  PRINTER  LOCATION  ASSOCIATED  WITH  ' 

THE  KEYWORD  PARAMETER  X.  ’ 

X  =  LOCAL....  LOCAL  PRINTER  IS  USED  ’ 

X  =  REMOTE 3 .  .  PRINTER  ASSOCIATED  WITH  REMOTE 3  ' 
DEFAULT  IS  X  =  LOCAL  ' 


CREATE  A  BACKGOUND  JOB  (RJE)  TO  EXECUTE  THE  MODEL.' 
THE  LOAD  MODULE  EXECUTED  IS  ASSUMED  TO  BE  IN  THE  PDS ’ 
"TTC39 .LOAD"  AS  MEMBER  UNDER  THE  MODEL  NAME  SPE-' 
CIFIEU.  FILE  "CARD"  IS  THE  INPUT  FILE  AND  IS  BY' 
DEFAULT  ALLOCATED  TO  "TTC39 . DATA(GOIN )  "  .  THE  JOB  ' 
CREATES  TWO  NEW  DATA  SETS  OR  REUSES  THE  EXISTING' 

ONES  BY  THE  NAMES  OUTSM//  AND  YCOMOUT#,  WHERE  #' 
REPRESENTS  THE  RUN  NUMBER  NO(X)  OF  THE  SPECIFIC  RUN.' 
BOTH  DATASETS  ARE  USED  BY  THE  POST  ANALYSIS  STEP.' 
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TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
TPRINT 
GO  TO 


SYNTAX 


’REQUIRED 

'ALIAS 

'EXAMPLE 


TTC39RUN  < N AM E >  <ID>  <TASK>  M(TTC39NEW)  OUT(A)  ' 
GOIN(GOIN)  NO ( 1 )  T  IME ( 5  )  R(380K)  JCL(X)  TYPRUN(XXX)’ 
ROUTE(LOCAL)  ’ 

-  < N AM E >  < I D>  <TASK>  ' 

-  NONE' 

-  TTC39RUN  MILLER  T8003  JCL(EDIT)’ 


'OPERANDS 

i  t 

'  <NAME> 

'  <ID> 

'  <TASK> 

'  M(TTC39NEW) 


OUT ( A ) 


GOIN (GOIN 


NO  (  1  ) 


T IME ( 5 ) 

R ( 3  80K  ) 
JCL(X) 


TYPRUN(  ) 

<  JOB 

ROUTE ( X ) 


YOUR  NAME . ' 

USER  ID  (BADGE  NO.)  WITH  PREFIX.' 

A  VALID  TASK  NUMBER.' 

MODEL  NAME  CORRESPONDING  TO  THE  MEMBER  NAME.’ 
DEFAULT  IS  TTC39NEW.  ' 

OUTP'JT  CLASS.  X,  Y,  Z,  OR  A  MAY  BE  SPECIFIED.' 
OUT(A)  -  ALL  MODEL  OUTPUT  IS  SENT  TO  PRINTER' 
OUT(X),  OUT ( Y ) ,  OUT ( Z )  MODEL  OUTPUT  IS  CLASS  X,' 
CLASS  Y  OR  CLASS  Z  RESPECTIVELY' 

)  SPECIFIES  INPUT  DATA  SET.  NAME  IN  PARENTHESIS' 
REPRESENTS  MEMBER  NAME  IN  PDS  "TTC39 . DATA"  ' 

IS  ALLOCATED  BY  THE  SYSTEM  TO  FILE  "CARD".’ 
DEFAULT  NAME  IS  GOIN.' 

SPECIFIES  LAST  DIGIT  OF  JOB  NUMBER.  DEFAULT  IS  ' 
"l".  THIS  DIGIT  MAY  BE  CHANGED  TO  ENABLE  SIMUL-' 
TANIOUS  EXECUTIONS  OF  MORE  THAN  ONE  MODEL.' 
SPECIFIES  EXPECTED  CPU  RUNIING  TIME.  DEFAULT  IS’ 
5  MINUTES. ’ 

SPECIFIES  REGION  SIZE.  DEFAULT  IS  380K.’ 

OPTIONAL,  THIS  KEYWORD  ALLOWS  YOU  TO  SPECIFY  ' 
THAT  YOU  WANT  THE  JCL  GENERATED  BY  THIS  COMMAND  ' 
PLACED  INTO  THE  EDIT  MODE  FOR  FURTHER  EDITING.’ 
JCL(EDIT)  WILL  ACCOMPLISH  THIS  .  THE  DEFAULT  ' 

IS  JCL(X)  FOR  DIRECT  SUBMISSION.  TO  EXECUTE  ’ 

IN  THE  EDIT  MODE  SIMPLY  ENTER  "SUB  *"  ' 

SPECIAL  INSTRUCTIONS  TO  CONSOLE  OPERATOR  ' 
HOLD  -  TO  PUT  JOB  IN  HOLD  QUEUE  ' 

•NO.)  -  TO  SPECIFY  A  JOB  WHICH  MUST  COMPLETE  ' 

FIRST  BEFORE  THIS  JOB  CAN  BE  RUN.  JOB  IS' 
AUTOMATICALLY  PLACED  IN  HOLD  QUEUE.  ’ 

ALLOWS  PRINTER  OUTPUT  TO  BE  ROUTED  TO  ' 

A  REMOTE  PRINTER  LOCATION  ASSOCIATED  WITH  ’ 

THE  KEYWORD  PARAMETER  X.  ' 

X  =  LOCAL....  LOCAL  PRINTER  IS  USED  ' 

X  =  REMOTE  3 .  .  PRINTER  ASSOCIATED  WITH  REMOTE  3  ’ 
DEFAULT  IS  X  =  LOCAL  ' 


LABEL  100 
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LABEL  1 

TPRINT  ’TO  INITIATE  THE  AN/TTC3  9  SIMULATION  SYSTEM  USE  THE  COMMAND:' 

T PRINT  ************************************************************* 
TPRINT  '*  TTC39  *' 

TPRINT  ************************************************************* 
TPRINT  'THE  FOLLOWING  COMMANDS  WILL  EXECUTE  THE  SYSTEM  ' 

TPRINT  ' - ' 

TPRINT  'FOREGROUND  EXECUTION:’ 

TPRINT  ************************************************************* 
TPRINT  '*  TTC39TRA  -TO  INVOKE  THE  TRAFFIC  GENERATOR  *' 

TPRINT  ' ***********************************************************  ' 
TPRINT  'FOREGROUND  INITIATED  BACKGROUND  JOBS  ( R JE )  ' 

TPRINT  ************************************************************* 
TPRINT  '*  TTC39CMP  -  TO  COMPILE  TTC39  LOAD  MODELS  *' 

TPRINT  ’*  TTC39TRF  -  TO  GENERATE  THE  TRAFFIC  FILE  *' 

TPRINT  '*  TTC39RUN  -  TO  EXECUTE  THE  MODEL  *' 

TPRINT  '*  TTC39PST  -  TO  INVOKE  THE  POST  ANALYSIS  PROGRAM  *' 

TPRINT  'A**********************************************************' 
TPRINT  'TO  GET  MORE  INFORMATION  ABOUT  THE  COMMANDS  ENTER’ 

TPRINT  ************************************************************* 
TPRINT  '*  TTC39HLP  C(<COMMAND  NAME> )  *' 

TPRINT  'A**********************************************************' 
TPRINT  '  ’ 

GO  TO  LABEL  100 

LABEL  6 

TPRINT  'FUNCTION  -  SUBMITS  THE  JOB  INTO  THE  JOB  QUEUE.  ' 

TPRINT  '  ' 

TPRINT  'SYNTAX  -  <NAME  >  <USER  ID>  <TASK>  NO(l)  OUT(A)  TIME(l)’ 

TPRINT  'SYNTAX  -  JCL(X)  ROUTE ( LOCAL )  ’ 

TPRINT  '  ' 

TPRINT  'ALIAS  -  NONE' 

TPRINT  '  ' 

TPRINT  'OPERANDS  -' 

TPRINT  '  ’ 

TPRINT  '  <NAME  >  YOUR  NAME,  AS  TO  APPEAR  IN  JCL.' 

TPRINT  ’  <ID>  YOUR  BADGE  NUMBER  WITH  PREFIX.’ 

TPRINT  '  <TASK>  A  VALID  TASK  NUMBER.' 

TPRINT  '  <MODEL>  THE  NAME  OF  YOUR  MODEL,  AS  USED  IN  COMPILE  STEP.' 

TPRINT  '  OUT ( X )  OPTIONAL,  USED  TO  SPECIFY  OUTPUT  CLASS.  YOU  MAY' 

TPRINT  '  SPECIFY  "Y",  "Z",  OR  "A”.  DEFAULT  IS  "X".  ' 

TPRINT  '  OUT(A)  -  SYSPRINT  OUTPUT  IS  SENT  TO  PRINTER.’ 

TPRINT  '  OUT(X) , OUT ( Y )  ,OUT(Z)  -  SYSPRINT  OUTPUT  I  SENT  TO' 

TPRINT  '  OUTPUT  CLASS  X,  Y.  OR  Z,  AND  MAY  BE  SCANNED  AND' 

TPRINT  '  SAVED  BY  THE  OUTPUT  FUNCTION.  FOR  HELP  ENTER' 

TPRINT  '  "HELP  OUTPUT"  ' 

TPRINT  '  NO( 1 )  OPTIONAL,  THE  ONE  CHARACTER  SYMBOL  IN  PARENTHESIS 
TPRINT  '  IS  ASSIGNED  AS  THE  LAST  LETTER  TO  THE  JOB  NUMBER. 

TPRINT  '  DEFAULT  IS  "1".  THE  JOB  NUMBER  OF  ABOVE  EXAMPLE' 

TPRINT  '  WOULD  THEN  BE  -  "T8003C0".’ 


2  0 


TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

LABEL  7 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 

TPRINT 


'  JCL(X)  OPTIONAL,  THIS  KEYWORD  ALLOWS  YOU  TO  SPECIFY  ' 

'  THAT  YOU  WANT  THE  JCL  GENERATED  BY  THIS  COMMAND  ' 

'  PLACED  INTO  THE  EDIT  MODE  FOR  FURTHER  EDITING.' 

'  JCL (EDIT)  WILL  ACCOMPLISH  THIS  .  THE  DEFAULT  ' 

'  IS  JCL(X)  FOR  DIRECT  SUBMISSION.  TO  EXECUTE  ' 

'  IN  THE  EDIT  MODE  SIMPLY  ENTER  "SUB  *"  ’ 

'  ROUTE(X)  ALLOWS  PRINTER  OUTPUT  TO  BE  ROUTED  TO  ' 

'  A  REMOTE  PRINTER  LOCATION  ASSOCIATED  WITH  ' 

'  THE  KEYWORD  PARAMETER  X.  ' 

'  X  =  LOCAL....  LOCAL  PRINTER  IS  USED  ' 

'  X  =  REMOTE3 . .  PRINTER  ASSOCIATED  WITH  REMOTE3  ' 

'  DEFAULT  IS  X  =  LOCAL  ' 

'FUNCTION  -  TO  INVOKE  THE  AN/TTC39  TRAFFIC  GENERATOR  IN  THE' 

'  BACKGROUND.  ' 

I  « 

'SYNTAX  ' 

'TTC39TRF  <NAME>  <ID>  <TASK>  OUT(A)  NO(l)  JCL(X)  ROUTE ( LOCAL ) ’ 

'  TRAFIN(TRAFIN)  TIME(I)  LINES(5)' 

'REQUIRED  -  <NAME > ,  <ID>,  <TASK>’ 

'ALIAS  -  NONE' 

'EXAMPLE  -  TTC39TRF  MILLER  T8003  10321240  OUT(X)  ROUTE ( REMOTE3 ) ' 

i  t 

'OPERANDS  -' 

t  t 

'  <  N  AM  E  >  YOUR  NAME,  AS  TO  APPEAR  IN  JCL.' 

'  <ID>  YOUR  BADGE  NUMBER  WITH  PREFIX.’ 

'  <TASK>  A  VALID  TASK  NUMBER.' 

'  OUT ( X )  OPTIONAL,  USED  TO  SPECIFY  OUTPUT  CLASS.  YOU  MAY' 

'  SPECIFY  "Y",  "Z",  OR  "A".  DEFAULT  IS  "X”.  ' 

'  OUT ( A )  -  SYSPRINT  OUTPUT  IS  SENT  TO  PRINTER.' 

'  OUT(X)  ,OUT(Y) , OUT(Z)  -  SYSPRINT  OUTPUT  I  SENT  TO' 

'  OUTPUT  CLASS  X,  Y,  OR  Z ,  AND  MAY  BE  SCANNED  AND' 

'  SAVED  BY  THE  OUTPUT  FUNCTION.  FOR  HELP  ENTER' 

'  "HELP  OUTPUT"  ' 

'  NO ( 1 )  OPTIONAL,  THE  ONE  CHARACTER  SYMBOL  IN  PARENTHESIS' 

'  IS  ASSIGNED  AS  THE  LAST  LETTER  TO  THE  JOB  NUMBER.' 

'  DEFAULT  IS  "1".  THE  JOB  NUMBER  OF  ABOVE  EXAMPLE' 

'  WOULD  THEN  BE  -  "T8003C1".' 

'  JCL (X )  OPTIONAL,  THIS  KEYWORD  ALLOWS  YOU  TO  SPECIFY  ' 

'  THAT  YOU  WANT  THE  JCL  GENERATED  BY  THIS  COMMAND  ’ 

'  PLACED  INTO  THE  EDIT  MODE  FOR  FURTHER  EDITING.' 

'  J  CL (EDIT)  WILL  ACCOMPLISH  THIS  .  THE  DEFAULT  ' 

'  IS  X  FOR  DIRECT  SUBMISSION  TO  BACKGROUND.  ' 

'  IN  THE  EDIT  MODE  SIMPLY  ENTER  "SUB  *"  ' 

'  ROUTE ( X )  OPTIONAL,  THIS  KEYWORD  ALLOWS  YOU  TO  SPECIFY  ' 

'  THAT  YOU  WANT  THE  PRINTER  OUTPUT  ROUTED  TO  A  ' 

'  REMOTE  LOCATION.  ’ 

'  X  =  LOCAL  OUTPUT  SENT  TO  LOCAL  PRINTER.  ’ 

'  X  =  REMOTE  3  OUTPUT  SENT  TO  REMOTE  PRINTER  ' 

'  ASSOCIATED  WITH  REMOTE3 .  ' 


NO  (  1  ) 


JCL (X ) 


2  1 


•»*.  * 


TPRINT  'TRAFIN(XXX)  OPTIONAL,  THIS  KEYWORD  ALLOWS  YOU  TO  SPECIFY  ' 

TPRINT  '  A  DIFFERENT  INPUT  DATASET  MEMBER  THAN  THE  ' 

TPRINT  '  DEFAULT  DSN  TTC 3 9 . DATA ( T RAF I N# ) ,  WHERE  If  IS  THE  ' 

TPRINT  *  NUMBER  SUPPLIED  BY  THE  OPTIONAL  KEYWORD  NO().  » 

GO  TO  LABEL  100 
LABEL  8 

TPRINT  '  **************************  * 

TPRINT  '  *  TTC39TRA  *  ' 

TPRINT  '  **************************  « 

TPRINT  '  ' 

TPRINT  'FUNCTION  -  TO  INVOKE  THE  AN/TTC39  TRAFFIC  GENERATOR  IN  THE  ' 
TPRINT  '  FOREGROUND.  ’ 

TPRINT  '  ' 

TPRINT  'SYNTAX  -  TTC39TRA  IN(TRAFIN)  ' 

TPRINT  'REQUIRED  -  NONE  ' 

TPRINT  'ALIAS  -  NONE' 

TPRINT  'OPERANDS 
TPRINT  '  ' 

TPRINT  '  I N( X )  SPECIFIES  THE  INPUT  DATA  SET.  DEFAULT  IS  .' 

TPRINT  '  X  =  TRAFIN  REFERRING  TO  THE  DATASET  .' 

TPRINT  '  TRAFIN. DATA 

GO  TO  LABEL  100 
LABEL  9 

TPRINT  'FUNCTION  -  CREATE  A  BACKGOUND  JOB  ( R JE )  TO  EXECUTE  ALL  STEPS  ' 
TPRINT  '  OF  THE  SIMULATION  SYSTEM.  ' 

TPRINT  '  ' 

TPRINT  'SYNTAX  TTC39SIM  <NAME>  <ID>  <TASK>  OUT(A)  TIME(IO)  ’ 

TPRINT  '  GOIN(GOIN)  NO(l)  TIME(5)  R(380K)  JCL(X)  TYPRUN(XXX)' 

TPRINT  '  ROUTE ( LOCAL )  T RAF  I N ( T RAF  I N )  ’ 

LABEL  100 
END 
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APPENDIX  A 


SAMPLE  TSO  SESSION 
DCEC  -  TSO,  ENTER  LOGON  - 

LOGON  T8003 /ABCDEF  A(  10321240)  S ( I  7 0 )  NOM  (CR) 

T8003  LOGON  IN  PROGRESS  AT  11:01:54  ON  NOVEMBER  9,  1977 
READY 

SETUP  SYS9.TTC39  (CR) 

SYS9.TTC39.CLIST  NOW  CONCATENATED  TO  SYS1.CMDPR0C 

*********************************************************** 

*  THE  AN/TTC-39  SIMULATION  SYSTEM  HAS  BEEN  INVOKED  * 

*  * 

*  THE ~HSF "iNSTALLAT ION  ~P R OV IDE S_THE "FOLLOWING  * 

*  COMMANDS  FOR  THE  EXECUTION  OF  THE  SYSTEM  * 

*  TTC39CMP  -  TO  COMPILE  TTC39  LOAD  MODULES  * 

*  TTC39TRA  -  TO  GENERATE  THE  TRAFFIC  FILE  (FOREGROUND)  * 

*  TTC39TRF  -  TO  GENERATE  THE  TRAFFIC  FILE  (BACKGROUND)  * 

*  TTC39RUN  -  TO  EXECUTE  THE  MODEL  * 

*  TTC39PST  -  TO  INVOKE  THE  POST  ANALYSIS  PROGRAM  * 

*  TTC39SIM  -  TO  INVOKE  ALL  SIMULATION  STEPS  (BACKGROUND)  * 

*  TTC39HLP  -  TO  PROVIDE  MORE  INFORMATION  ON  EACH  COMMAND  * 

*********************************************************** 

*  TTC  3  9 . DATA  HAS  BEEN  CREATED  * 

READY 

TTC39HLP  (CR) 

TO  INITIATE  THE  AN/TTC39  SIMULATION  SYSTEM  USE  THE  COMMAND: 
*********************************************************** 

*  TTC  39  * 

*********************************************************** 

FOREGROUND  EXECUTION: 

*********************************************************** 

*  TTC39TRA  -  TO  INVOKE  THE  TRAFFIC  GENERATOR  * 

*********************************************************** 

FOREGROUND  INITIATED  BACKGROUND  JOBS: 
*********************************************************** 

*  TTC39CMP  -  TO  COMPILE  TTC39  LOAD  MODULES  * 

*  TTC39TRF  -  TO  GENERATE  THE  TRAFFIC  FILE  * 

*  TTC39RUN  -  TO  EXECUTE  THE  MODEL  * 

*  TTC39PST  -  TO  INVOKE  THE  POST  ANALYSIS  PROGRAM  * 

*  TTC39SIM  -  TO  INVOKE  ALL  SIMULATION  STEPS  (BACKGROUND)  * 

*********************************************************** 

TO  GET  MORE  INFORMATION  ABOUT  THE  COMMANDS  ENTER: 

*********************************************************** 

*  TTC39HLP  C ( <CO  MM  AN  D  N AME> )  * 

*********************************************************** 

READY 


2  4 


TTC39HLP  C(TTC39CMP)  (CR) 

FUNCTION  -  TO  INVOKE  THE  FORT  COMPILER.  THE  FORT  SOURCE  CODE 
CONTAINED  IN  YOUR  TEMPORARY  DATASET  <M0DEL> . FORT 
IS  COMPILED  AND  LINK-EDITED.  THE  LOAD  MODULE  IS 
PLACED  INTO  SYSTEMS  DATASET  SYS9 . TTC39 . LOAD 
AS  THE  MEMBER  ( <M0DEL> ) . 

SYNTAX 

TTC39CMP  <NAME>  <ID>  <TASK>  <MOD EL>  OUT(A)  NO(O)  JCL(X) 

TPRINT  ROUTE ( LOCAL ) 


REQUIRED  -  <NAME> ,  <ID>,  <TASK>,  <MODEL> 

ALIAS  -  NONE 

EXAMPLE  -  TTC39CMP  MILLER  T8003  10321240  TTC39NEW  OUT(X) 
OPERANDS  - 


<NAME> 

<  I  D> 
<TASK> 
<MODEL> 
OUT ( X ) 


NO  ( 1  ) 


JCL(X) 


ROUTE ( X ) 


YOUR  NAME,  AS  TO  APPEAR  IN  JCL. 

YOUR  BADGE  NUMBER  WITH  PREFIX. 

A  VALID  TASK  NUMBER. 

THE  NAME  OF  YOUR  MODEL,  AS  USED  IN  COMPILE  STEP. 
OPTIONAL,  USED  TO  SPECIFY  OUTPUT  CLASS.  YOU  MAY 
SPECIFY  "Y",  ”Z",  OR  "A".  DEFAULT  IS  ”X". 

OUT ( A )  -  SYSPRINT  OUTPUT  IS  SENT  TO  PRINTER. 
OUT(X) ,OUT(Y) ,OUT(Z)  -  SYSPRINT  OUTPUT  I  SENT  TO 
OUTPUT  CLASS  X,  Y,  OR  Z,  AND  MAY  BE  SCANNED  AND 
SAVED  BY  THE  OUTPUT  FUNCTION.  FOR  HELP  ENTER 
"HELP  OUTPUT" 

OPTIONAL,  THE  ONE  CHARACTER  SYMBOL  IN  PARENTHESIS 
IS  ASSIGNED  AS  THE  LAST  LETTER  TO  THE  JOB  NUMBER. 
DEFAULT  IS  "1".  THE  JOB  NUMBER  OF  ABOVE  EXAMPLE 
WOULD  THEN  BE  -  "T8003C0". 

OPTIONAL,  THIS  KEYWORD  ALLOWS  YOU  TO  SPECIFY 
THAT  YOU  WANT  THE  JCL  GENERATED  BY  THIS  COMMAND 
PLACED  INTO  THE  EDIT  MODE  FOR  FURTHER  EDITING. 
JCL(EDIT)  WILL  ACCOMPLISH  THIS  .  THE  DEFAULT 
IS  JC  L ( X )  FOR  DIRECT  SUBMISSION.  TO  EXECUTE 
IN  THE  EDIT  MODE  SIMPLY  ENTER  "RJE  * " 

ALLOWS  PRINTER  OUTPUT  TO  BE  ROUTED  TO 
A  REMOTE  PRINTER  LOCATION  ASSOCIATED  WITH 
THE  KEYWORD  PARAMETER  X. 

X  »  LOCAL....  LOCAL  PRINTER  IS  USED 
X  =*  REMOTE3 .  .  PRINTER  ASSOCIATED  WITH  REMOTE3 
DEFAULT  IS  X  -  LOCAL 


READY 


TTC39CHP  T8003  10321240  TRAFGEN  (CR) 

************************************************************** 

*  LOAD  MODULE  SY S9 . TTC3 9 . LO AD ( T RAFG EN )  BEING  CREATED  * 

*  PRINTER  OUTPUT  IS  CLASS(A)  AND  IS  ROUTED  TO  LOCAL  * 

************************************************************** 

JOB  297  T8003C1  IS  if  2  CLASS  I  JOB  TO  BE  EXECUTED 
IEF404I  T8003C1  ENDED  TIME- 1 1  . 20 . 5  1 
EDIT  TTC39 ( TRAFI N )  DATA  NONUM  (CR) 

EDIT 

TV  (CR) 

L  (CR) 

CHECKOUT  OF  TRGEN  -TA341  AND  DSVT  ONLY 
$ TRAFFIC  72 

TA341  1-2,  DSVT  1  P 
TA341  6513 
END 

DSVT  2-3  S 

TA341  7412 

DSVT  6513 
END 

$PROBABILITY  DISTRIBUTIONS 


7  1  .5  .3  .1  .05  8 

2  2.  2.  0.  0.  1 

3  4.  4.  0.  0.  1 

3  3.  3.  0.  0.  1 

5  3.  3.  0.  0.  1 

6  20.  20.  0.  0.  1 


7  36.  36.  0.  0.  1 

UP  3 

3  3.  3.  0.  0.  1 

C  /  3  /  4  / 

4  3.  3.  0.  0.  1 

SAVE  (CR) 

SAVED 
END  (CR) 

READY 

TTC39TRF  TEAM  1  T8003  1032  1240  (CR) 

******************************************************** 

*  AN/TTC39  TRAFFIC  GENERATOR  BEING  INVOKED  * 

*  BACKGROUND  EXECUTION  * 

*  * 

*  INPUT  DATASET  ~BETNG~US  ED  ~f§7  ffC39  .DAT  A("f  RAF  IN  )'“"* 

*  OUTPUT  DATASETS  BEING  CREATED:  TTC39 .TRAFFIC  * 

*  TTC390UT .DATA 
******************************************************** 

>>>>  CHECK  DATASET  NAMES.  DO  YOU  WANT  TO  CONTINUE  ?  <<<< 
YES  (CR) 

JOB  301  T8003T0  IS  BEING  INPUT 
READY 

IEF404I  T8003T0  ENDED  T I  ME -  1 1  . 0 0 . 0 2 

READY 

EDIT  TTC3  9 ( GOT  N )  DATA  NONUM  (CR) 
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JL  .  . 


TTC39RUN  TEAM 1  T8003  10321240  TTC39NEW  (CR) 

*********************************************************** 

*  THE  AN/TTC-39  MODEL  EXECUTION  STEP  * 

*  BACKGROUND  EXECUTION  * 


* 


* 

INTERMEDIATE  DATASETS  ARE  SAVED  UNDER: 

* 

T8003.TTC39. XCOMOUTl 

* 

T8003 .TTC39 . YCOMOUT1 

* 

T8003.TTC39.STAT1 

* 

T8003  .TTC39 .TRFOUT1 

* 

T8003 .TTC39 . RANDOUT 1 

* 

* 

T8003 .TTC39 . TRUNK1 

* 

THE  INPUT  DATASETS  TO  BE  USED  ARE: 

* 

T8003.TTC39.DATA(GOIN1 ) 

* 

T8003.TTC39.0UT1 

* 

T8003 .TTC39 .TRAFFIC1 

********************************************************** 


>>>>  CHECK  DATASET  NAMES.  DO  YOU  WANT  TO  CONTINUE  ?  <<<< 
YES  (CR) 

JOB  322  T8003G1  IS  BEING  INPUT 
READY 

EF404I  T8003G1  ENDED  TIME  =  1 1 . 3  1 . 06 

READY 

EDIT  TTC3 9 ( POSTIN )  DATA  NONUM  (CR) 

EDIT 

TV  (CR) 

1  <CR> 

(  enter  Input  parameters  for  POSTSIM  )  (CR) 

SAVE  (CR) 

SAVED 
END  (CR) 

READY 

TTC39PST  TEAM  1  T8003  10321240  (CR) 

***************************************************** 


k 

It 

* 

* 

* 

* 

* 

* 

* 


THE  TTC39  POST  PROCESSOR  IS  BEING  INVOKED 

THE~S  IMU~LAf61T~0'uf  PUT ~DATA  TeT  S~T0~ B  E  ’ANALYZED  ARE  : 
T8003.TTC39. .XCOMOUTl 
T8003.TTC39.YCOMOUT1 
T8003.TTC39.STAT1 
T8003 .TTC39 .TRAFOUT1 
T8003 .TTC39. RANDOUT1 


* 

* 

* 

* 

* 

* 


*  PRINTER  OUTPUT  IS  CLASS(A)  *  * 

*  PRINTER  OUTPUT  IS  ROUTED  TO  LOCAL  * 

******************************************************** 


>»>  CHECK  DATASET  NAMES.  DO  YOU  WANT  TO  CONTINUE  ?  <<<< 
YES  (CR) 

JOB  T8003S1  IS  BEING  INPUT 
READY 

IEF404I  T8003S1  ENDED  TIME- 1 1  .  3 5 . 3 2 
LOGOFF  (CR) 

T8003  LOGGED  OFF  TSO  AT  13:01:42  ON  NOVEMBER  9  1 9  7  7 -1- 
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APPENDIX  B 


BATCH  EXECUTION  OF  THE 
AN/TTC39  SWITCH  SIMULATOR 

The  AN/TTC39  Simulator  may  also  be  executed  in  the  batch  mode. 
The  output  datasets  of  all  steps  are  saved  and  will  be 
reused  when  the  simulation  is  repeated.  The  following  lists  the 
JCL  for  the  execution  of  all  three  simulator  steps. 

/T8003TS1  JOB  ( 1 032 1 240  ,  , 240 , 2 0 , 5 00  ,  ,  ) , TEAM8 , 

//  MSGLEVEL-( 1 , 1 ) , NO TI FY-T8 00 3 

/*R0UTE  PRINT  LOCAL 

/ /SCRTCH  EXEC  PGM-I EHPROGM , REGION-40K 
//SYSPRINT  DD  SYSOUT-A 

/ /D  1  DD  UNIT-3330  , VOL-S ER-T SO WK4  ,  DISP-SHR 

//SYSIN  DD  * 

SCRATCH  DSNAME-T8003 .TTC39.TRAFFIC1  , VOL-33 30-T S0WK4 , PURGE 
SCRATCH  DSN AME-T 8003 .TTC39.0UT1 ,V0L=3330=T SO WK4, PURGE 
SCRATCH  DS  NAME -T8  00  3  .TTC39 .TRF0UT1 , VOL-33 30-TS0WK4 , PURGE 
SCE4TCH  DSN AME-T 8  00  3 . TTC  3  9 . XCOMOUT 1 , V0L-3330-TS0WK4  ,  PURGE 
SCRATCH  DSN AME-T 8 00 3  .TTC39 . YC0M0UT1 , VOL-33 30-T SOWK4  ,  PURGE 
SCRATCH  DS NAME -T8 003 .TTC39. RANDOUT1 , VOL-33 30-TS0WK 4 , PURGE 
SCRATCH  DSNAME-T8003 .TTC39. STAT1  ,  VOL- 33 30-T SOWK4  ,  PURGE 
SCRATCH  DSNAME-T8 003 .TTC 39. TRUNK  1 , VOL-33 30-TSOWK4  ,  PURGE 
SCRATCH  DSNAME-T8003.TTC39.CONFT1 , VOL-3330-TSOWK4 , PURGE 
/* 

//TRAF  EXEC  PGM-T RAFGEN , REG ION- 1 20K , TIM E- 1 
//TRAF.STEPLIB  DD  DSN-SYS9 .TTC39 . LOAD , DISP-SHR 
//TRAF .FT01F001  DD  * 

TWOPARTY  DATA  4.1.1 
$TRAFFIC  3000 
TA341  1-10  S 
END 

LLV  1-10  S 
END 

DS VT  1-10  N 
END 

TA341  1  S 
LLV  1234 
END 

LLV  11  N 
PBX  1567 
END 

PBX  1  P 

VNA  1  8  9  10 

END 

TGC  VN 

38A  1  11  12  13  9  3 
END 
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TGC  A8 

DSVT  1  14  15  4  3  3 
END 

TGC  A9 

39A  1  16  3  7  6  6 
END 

DSVT  11  S 
TA341  1  17  6  10 
END 
$PROB 

17  1  300.  300.  0.  0.  1 
2  60.  60.  0.  0.  1 

3  1.  0.  0.  0.  8 

4  10.  10.  0.  0.  1 

5  60.  50.  70.  0.  2 
60.1.0.0.8 

7  7.  7.  0.  0.  1 

8  60.  0.001  999.  5.  3 

9  0.  0.  1.  0.  8 

10  4.  4.  0.  0.  1 

11  1.59  0.001  999.  2.23  4 

12  0.  0.  0.  1.  8 

13  3.0  3.0  0.  0.  1 

14  60.  0.001  999.  1.0  5 

15  0.  0.  0.  0.  8 

16  60.  .001  9  99 .  1.0  6 

17  59.  1.0  999.  0.  9 
/* 

//TRAF.FT06F001  DD  SYSOUT-A 

//TRAF.FT13F001  DD  DS N-T8 00 3  . TTC 3 9 . OUT  1 , UN I T-S YS TS , 

//  D ISP- (NEW .CATLG) , SPACE -(TRK ,(1,10)  ,  RES E )  , 

//  DCB-(LRECL=84 , RECFM-VBS , BLKS IZE-3280 ) 

//TRAF.FT12F001  DD  DS N-T8 003 . TTC 3 9 . CONFT 1 , UNI T-S YSTS , 

//  SPACE- (TRK, ( 1 ,10) ,RLSE) ,V0L-SER-TS0WK4,DISP*( NEW  ,  CATLG  )  , 

//  DCB-(LRECL-800 .RECFM-U , BLKS IZE-800 ) 

//TRAF.FT03F001  DD  DSN-&T RAFF  I C , U NI T-S YS DA , D IS P - ( N EW , PASS ) , 

//  SPACE -(TRK, (1 ,10),RLSE), 

//  DCB-(LRECL-80 ,RECFM-FB,BLKSIZE-3120) 

//SORT  EXEC  PGM-IERRCOOO .REGION-120K 
//SYSOUT  DD  SYSOUT-A 

//SORTLIB  DD  DSN-S YS 1 . SORTLI B , DI SP-SHR 
/ /SORTWKOl  DD  UNIT-SYSDA  ,  SPACE- ( CYL  ,  2  ,  ,  CONTIG ) 

/ / SORTWK02  DD  UN IT-S YS DA , SP A CE - ( C YL  ,  2  ,  , CONT IG  ) 

/ / SORTWK03  DD  UN I T-S YS DA  ,  SP ACE - ( C YL  ,  2 ,  , CONT  IG  ) 

//SORTIN  DD  DSN-&TRAFFIC , UNIT-SYSDA, DISP-(0LD, DELETE), 

//  DCB-(LRECL-80 .RECFM-FB, BLKSIZE-3120) 

//SORTOUT  DD  DSN-T8  003  .  TTC  3  9  .  TF.  AFF I C 1  ,  U  NI  T-S  YSTS  ,  D  IS  P- (  NEW  ,  CATLG  )  , 
//  SPACE  - ( T  RK  ,  ( 1 , 10) , RLSE) ,VOL-SER-T  SOWK  4 , 

//  DCB-(LRECL-80  .RF.CFM-FB,  BLKSIZE-3120) 

//SYSIN  DD  * 

SORT  FIELDS-(46,15,CH,A, 1 ,5, FI ,A) 

/* 


//GO  EXEC  PGM-TTC39NEW.REGION-500K, TIME-4 
/ /GO . STEPLIB  DD  DSN-SYS9 .TTC39 .LOAD .DISP-SHR 
/ /GO  .FT09F00 1  DD  * 

TWOPARTY  RUN  2  ERROR  EQUAL  0 
$ROUTING 
VNA  A8  *  VN 
39A  *  *  A9 
38A  VN  *  A8 
$  TRUNK 
TGC  VN 
AN  50 
AS  50 
KIND  VN 
TGC  A9 
DS  50 
AS  50 
KIND  39 
ERROR  0. 

TGC  A8 
AN  50 
AS  50 
KIND  38 
$EQUIPMENT 
DMFS  100 
IMU  100 
TNGN  100 
DIGR  100 
LKG  100 
DMFR  100 
CLRG  100 
SDMX  100 
$M  ISC 
END  500 
MAXC  100 
X  0 
/* 

/ / GO  .  FT06F001  DD  SYSOUT-A 

//GO.FT20F001  DD  DISP- (, DELETE ), UNIT-SYSDA , 

//  SPACE- (CYL,(1 ,1) , RLSE ) , DCB- (RECFM-VS ) 
//GO.FT21F001  DD  DI SP- (, DELETE ), UNIT-SYSDA , 

//  SPACE-(CYL,<1 , 1 ), RLSE) ,DCB-( RECFM-VS) 
//GO.FT22F001  DD  D ISP- (, DELETE ), UNIT-SYSDA  , 

//  SPACE- ( CYL , ( 1 ,1) ,RLSE) , DCB- (RECFM-VS) 
//GO.FT23F001  DD  DISP- (, DELETE ), UNIT-SYSDA  , 

//  SPACE -(CYL,(1 , 1 ) , RLSE) , DCB- (RECFM-VS) 
//GO.FT24F001  DD  DISP- (, DELETE ), UNIT-SYSDA , 

//  SPACE- (CYL,(1 , 1). RLSE), DCB- (RECFM-VS) 
//GO.FT25F001  DD  DI SP= (, DELETE ), UNIT-S YS DA , 

//  SPACE- (CYL,(1 ,1) i RLSE ) , DCB- ( RECFM-VS ) 
//GO.FT26F001  DD  DISP- (,  DELETE  ),  UNIT-S YS DA  , 

//  SPACE -( CYL, ( 1 ,1) .ELSE), DCB- (RECFM-VS) 

/ /GO . FT 1 0F001  DD  DISP- ( SHR) , DSN-T8003 . TTC39 . TRAFFIC  1 
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/ /GO. FT32F001  DD  DIS P- ( SHR ) , DSN-T8 003 . TTC39 . OUT  1 
/ /GO . FT30F001  DD  DIS P- (NEW , CATLG ), UNIT-33 30 , V0L-SER-TS0WK4 , 

//  DSN-T8003 .TTC39.XC0M0UT1  , 

//  SPACE* (CYL , ( 1 ,10) ,RLSE) , DCB- (L RECL- 1 00 , RECFM-VBS , BLKS IZE-400 ) 
/ /GO.FT31F001  DD  DISP-(NEW , CATLG) , UNIT-3330 , VOL-SER-TSOWK4 , 

//  DSN-T8003 .TTC39.YC0M0UT1  , 

//  SPACE- (CYL,(1 ,10) , RLSE ) , DC B- (L RE  CL- 1 00 , RE CFM- VBS , BLKS IZE-400  ) 
/ / GO. FT3 3F001  DD  DISP- (NEW , CATLG ), UNIT-3330 , VOL-SER-T SOWK4 , 

//  DSN-T8003 .TTC39 .TRFOUT1  , 

//  SPACE- (TRK , ( 1 ,10) , RLSE ) , DCB- (L RE  CL = 1 00 , RE CFM-FB , BLKS I ZE-400  ) 

/ /GO. FT34F001  DD  DI SP- (NEW , CATLG ), UNI T-3330  ,  VOL-SER-TSOWK4 , 

//  DSN-T8003.TTC39.RANDOUT1  , 

//  SPACE- (T  RK , ( 1 ,10) , RLSE ) , DC B= (L RE  CL- 1 00 , RE CFM-F B , BLKS I ZE-800 ) 
//GO. FT35F001  DD  DISP- (NEW , CATLG ), UNIT-3330 , VOL-SER-T SOWK4 , 

//  DSN-T8003 .TTC39 . STAT1  , 

//  SPACE- (TRK, (1 , 10) ,RLSE) , DCB- ( L RECL- 1 00 , RE CFM-VB S , BLKS IZE-400 ) 
//GO . FT38F001  DD  DI SP- (OLD , KEEP ), UNIT-3330 , V0L-SER-TS0WK4 , 

//  DSN-T8003 .TTC39 .C0NFT1 

//GO.FT42F001  DD  DISP- (NEW , CATLG ), UNIT-33 30  , VOL-SER-T S0WK4 , 

//  DSN-T8  00  3 .TTC39.TRUNK1 .SPACE- (TRK ,  (  2 0 , 2 0 ) , RLSE  ) 

//GO.FT41F001  DD  DUMMY 
//G0.FT51F001  DD  DUMMY 

//GO. FT27F001  DD  DISP=( , DELETE ), UNIT-3330 , V0L-SER-TS0WK4 , 

//  SPACE- (TRK , ( 1 , 10) .RLSE) , DCB- ( RECFM-VS  ) 

//GO.FT28F001  DD  D I SP- (, DELETE ), UNIT-33 30  , VOL-SER-T SOWK4  , 

//  SPACE - (T RK , ( 1 , 10) , RLSE) , DCB- (RECFM-VS) 

//POST  EXEC  PGM-POSTSIM, RE GION-120K, TIME-2 
/ /POST.STEPLIB  DD  DSN-SYS9 . TTC39 . LO AD , D ISP-S HR 
//POST.FT05F001  DD  * 

$TRAFFIC  SUMMARY 
$CALL  PROCESSING  SUMMARY 
$SWITCH  UTILIZATION  SUMMARY 
/* 

//POST.FT06F001  DD  SYSOUT-A 
//POST .FT07F001  DD  SYSOUT-A 

//POST.FTlOFOOl  DD  DSN-T8 00 3 .TTC 3 9 . XC OMOUT 1 , U NI T-SYSTS , 

//  DCB-(RECFM-VBS,LRECL-100 , BLKS I Z E- 4 00 )  ,  DISP- (SHR , KEEP  ) 

//POST.FT1 1F001  DD  DSN- & SCR ATCH , UNIT-S YS TS , DI SP- (NEW  , DELETE ) , 

//  DCB- (LRECL-2500  , RE CFM-VB S, BLKS IZE-2500)  , 

//  SPACE-(TRK,(1 ,10) ,RLSE) 

//POST. FT31 F001  DD  DSN-T8003 .TTC39 . YCOMOUT1 , UNIT-SYSTS , 

//  DCB- (L RECL- 100 .RECFM-VBS , BLKS IZE-400) , DI SP- ( S HR , KEE P ) 

//POST.FT33F001  DD  DSN-T8003 .TTC39 .TRFOUT1 , UNIT-SYSTS , 

//  DCB- (LRECL- 100 , RE CFM-FB, BLKS IZE-400) .DISP- (SHR, KEEP) 

//POST.FT34F001  DD  DSN-T 8 00 3 . TTC3 9 . RANDOUT 1 , DI SP- (OLD , KE EP ) 
//POST.FT35F001  DD  DSN-T8 00 3  . TTC 3 9 . ST AT  1  , UNIT-SYSTS , 

//  DCB- (LRECL- 1 00 , RECFM-VBS, BLKS IZE-400) , DI SP- ( OLD , KEEP ) , 

//  SPACE -(TRK, (20, 20) ,RLSE) 

//POST.FT39F001  DD  * 

0.0  0.0  0000 
0000000000000000 
1  0  0  0  1  1  0 
0  0  0 

/* 
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APPENDIX  C 


SYSTEM  INSTALLATION 

The  following  instructions  have  been  prepared  to  help  the 
user  in  installing  the  AN/TTC-39  Simulation  System.  The 
simulator  is  usually  delivered  on  an  unlabeled  magnetic  tape 
«  which  contains  three  partitioned  datasets. 

TTC39.FORT  with  the  FORTRAN  source  modules: 

.  TRAFGEN,  the  traffic  generator 

TTC39NEW,  the  simulator 

POSTSIM,  the  post-analysis  program. 

TTC39.DATA  with  a  variety  of  traffic  generator 
and  simulation  step  input  data. ram. 

TTC39.CLIST  with  special  clists  for  the  execution 
of  the  simulation  steps. 

These  datasets  can  be  loaded  from  this  tape  to  disk  using 
a  JCL  setup  similar  to  the  following: 

//T8003TD  JOB  (10321240,  ,10, ,60,  ,  ) , U LFERS , MSGLEVEL* ( 1 , 1 ) , 

//  NOTIFY-T8003 ,MSGCLASS=Q 

/‘MESSAGE  JOB  REQUIRES  TAPE  SER  NO  001228  FOR  INPUT  **** 

/ / COPYPDS  EXEC  PCM=I EHMOVE 
//SYSPRINT  DD  SYS0UT=A 

//SYSUTI  DD  UNIT**3330,DISP  =  OLD,VOL  =  SER=TSOWK2 

/ /DD1  DD  UNIT-3330  ,DISP  =  0LD  ,V0L=SER=TS0WK4 

// T1  DD  DSN-TTC039  .  FINAL, DISP=(0LD , KEEP ) ,UNIT=TAPE9 , 

//  DCB-(LRECL*80 , BLKSIZE-800 ,RECFM=FB) ,V0L=( , RE TAIN, SER* 001228) , 
//  LABEL* ( , NL ) 

//SYSIN  DD  * 

COPY  PDS*T800  3  .TTC39 . FORT , FR0M=T APE9  =  (001 228 , 1  ) .TO-33  30-TSOWK4 , 
FR0MDD=T 1 

COPY  PDS=SYS9.TTC39.CLIST,FROM*TAPE9=(001228,2) ,TO-3330-TSOWK4 , 
FR0MDD=T 1 

COPY  PDS-T8003 .TTC39 . DATA , FR0M-T APE9 = ( 00 1 2 28 , 3 ) ,TO*3330*TSOWK4 , 

'  FR0MDD=T 1 

/* 

//CATALOG  EXEC  PGM=I EHPROGM 
//SYSPRINT  DD  SYS0UT=A 

//SYSUTI  DD  UNIT-3330 ,DISP=0LD ,VOL=SER=TS0WK4 

//SYSIN  DD  * 

CATLG  DSNAME-T8003 .TTC39 . FO RT , VOL* 3 3 30-T S0WK4 
CATLG  DSNAME-SYS9 .TTC39 . CL  I ST , VOL  =  33 30-T S0WK4 
CATLG  DSNAME-T8003 .TTC39.DATA, VOL-3330-TSOWK4 

/* 
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A  permanent  partitioned  load  module  dataset  with  the  name 
SYS9 .TTC39 . LOAD  must  be  established  to  receive  the  three  load 
modules  of  the  simulation  system.  The  compiling  and  link-editing 
of  the  traffic  generator,  the  simulator,  and  the  post-analysis 
program  may  be  accomplished  by  executing  the  command  list 
•  TTC39CMP *  in  dataset  TTC39.CLIST  for  each  of  the  three 
compilations.  Each  execution  of  this  list  will  create  a 
background  job  and  place  the  load  module  into  the  dataset 
SYS9 .TTC39 . LOAD .  The  simulation  system  is  then  operational. 
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